Mercurial Mercurial > hg > nominal2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
authorCezary Kaliszyk <kaliszyk@in.tum.de>
Tue, 16 Feb 2010 15:13:14 +0100
changeset 1163 30fb2ca89773
parent 1162 6642df770bc4 (diff)
parent 1161 37d9cc4b8abf (current diff)
child 1165 f1253f280843
child 1166 e860d8767d09
merge
--- a/Quot/quotient_typ.ML	Tue Feb 16 15:12:49 2010 +0100
+++ b/Quot/quotient_typ.ML	Tue Feb 16 15:13:14 2010 +0100
@@ -277,9 +277,9 @@
     val rty = Syntax.read_typ lthy rty_str
     val lthy1 = Variable.declare_typ rty lthy
     val rel = 
-          Syntax.parse_term lthy1 rel_str
-          |> Syntax.type_constraint (rty --> rty --> @{typ bool}) 
-          |> Syntax.check_term lthy1 
+      Syntax.parse_term lthy1 rel_str
+      |> Syntax.type_constraint (rty --> rty --> @{typ bool}) 
+      |> Syntax.check_term lthy1 
     val lthy2 = Variable.declare_term rel lthy1
   in
     (((vs, qty_name, mx), (rty, rel)), lthy2)
nominal2