author | Christian Urban <urbanc@in.tum.de> |
Wed, 09 Dec 2009 17:31:19 +0100 | |
changeset 671 | 2b35c7e90294 |
parent 670 | 178acdd3a64c (diff) |
parent 669 | 2ee3bc9899c0 (current diff) |
child 672 | c63685837706 |
--- a/Quot/quotient_def.ML Wed Dec 09 17:16:39 2009 +0100 +++ b/Quot/quotient_def.ML Wed Dec 09 17:31:19 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