diff options
Diffstat (limited to 'spartan/lib')
| -rw-r--r-- | spartan/lib/lib.ML | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/spartan/lib/lib.ML b/spartan/lib/lib.ML index fd5c597..615f601 100644 --- a/spartan/lib/lib.ML +++ b/spartan/lib/lib.ML @@ -78,6 +78,8 @@ val type_of_typing = #2 o dest_typing fun mk_Pi v typ body = Const (\<^const_name>\<open>Pi\<close>, dummyT) $ typ $ lambda v body fun typing_of_term tm = \<^const>\<open>has_type\<close> $ tm $ Var (("*?", 0), \<^typ>\<open>o\<close>) +(*The above is a bit hacky; basically we need to guarantee that the schematic + var is fresh*) (** Goals **) |