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_def.ML
changeset 670 178acdd3a64c
parent 663 0dd10a900cae
child 705 f51c6069cd17 
--- a/Quot/quotient_def.ML	Wed Dec 09 17:05:33 2009 +0100
+++ b/Quot/quotient_def.ML	Wed Dec 09 17:31:01 2009 +0100
@@ -91,7 +91,6 @@
 
   fun qcinfo phi = qconsts_transfer phi {qconst = trm, rconst = rhs, def = thm}
   val lthy'' = Local_Theory.declaration true
-   val lthy'' = Local_Theory.declaration true
                  (fn phi => 
                        let
                          val qconst_str = Binding.name_of qconst_bname
nominal2