Add goalType tactic

This is a derived tactic that I've defined in every non-trivial use of
Elab. Better put it in the library.
This commit is contained in:
David Raymond Christiansen 2015-08-12 10:38:28 -07:00
parent 763ac00bfd
commit 30585fcddd

View File

@ -7,6 +7,7 @@ module Language.Reflection.Elab
import Builtins
import Prelude.Applicative
import Prelude.Basics
import Prelude.Bool
import Prelude.Functor
import Prelude.List
@ -224,6 +225,12 @@ namespace Tactics
forgetTypes : TT -> Elab Raw
forgetTypes tt = prim__Forget tt
||| Get the goal type as a Raw term
goalType : Elab Raw
goalType = do g <- getGoal
forgetTypes (snd g)
||| Generate a unique name based on some hint.
|||
||| **NB**: the generated name is unique _for this run of the