author | wenzelm |
Sat, 04 Sep 1999 21:05:01 +0200 | |
changeset 7474 | 43cedde6d52a |
parent 7473 | fd03510c6841 |
child 7475 | dc4f8d6ee0d2 |
--- a/src/Pure/Isar/auto_bind.ML Sat Sep 04 21:04:30 1999 +0200 +++ b/src/Pure/Isar/auto_bind.ML Sat Sep 04 21:05:01 1999 +0200 @@ -25,7 +25,7 @@ val env = [(name ^ "_prop", prop), (name ^ "_concl", list_abs concl)] @ (case concl of Const ("Trueprop", _) $ t => [(name, list_abs t)] | _ => []); - in map (fn (s, t) => ((Syntax.binding s, 0), t)) env end; + in map (fn (s, t) => ((s, 0), t)) env end; fun goal prop = statement_binds ("thesis", prop);