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.
Quot/quotient_typ.ML
changeset 783 06e17083e90b
parent 782 86c7ed9f354f
child 786 d6407afb913c 
--- a/Quot/quotient_typ.ML	Wed Dec 23 21:30:23 2009 +0100
+++ b/Quot/quotient_typ.ML	Wed Dec 23 22:42:30 2009 +0100
@@ -156,9 +156,9 @@
 
   (* storing the quot-info *)
   val lthy4 = quotdata_update qty_full_name 
-               (Logic.varifyT Abs_ty, Logic.varifyT rty, rel, equiv_thm) lthy3  
-  (* FIXME: varifyT should not be used *)
-  (* FIXME: the relation can be any term, that later maybe needs to be given *)
+               (Logic.varifyT Abs_ty, Logic.varifyT rty, map_types Logic.varifyT rel, equiv_thm) lthy3  
+  (* FIXME: VarifyT should not be used - at the moment it allows matching against the types. *)
+  (* FIXME: The relation can be any term, that later maybe needs to be given *)
   (* FIXME: a different type (in regularize_trm); how should this be done?   *)
 in
   lthy4
nominal2