Mercurial Mercurial > hg > nominal2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Nominal/nominal_dt_supp.ML
changeset 2449 6b51117b8955
parent 2448 b9d9c4540265
child 2450 217ef3e4282e 
--- a/Nominal/nominal_dt_supp.ML	Sun Aug 29 00:09:45 2010 +0800
+++ b/Nominal/nominal_dt_supp.ML	Sun Aug 29 00:36:47 2010 +0800
@@ -21,7 +21,8 @@
 let  
   val vs = fresh_args ctxt qtrm
   val rhs = list_comb (qtrm, vs)
-  val lhs = mk_supp (foldl1 HOLogic.mk_prod vs)
+  val lhs = fold (curry HOLogic.mk_prod) vs @{term "()"}
+    |> mk_supp
 in
   mk_supports lhs rhs
   |> HOLogic.mk_Trueprop
nominal2