src/Pure/Isar/auto_bind.ML
changeset 7474 43cedde6d52a
parent 7452 c2289eabf706
child 7599 40b7f7f51208
     1.1 --- a/src/Pure/Isar/auto_bind.ML	Sat Sep 04 21:04:30 1999 +0200
     1.2 +++ b/src/Pure/Isar/auto_bind.ML	Sat Sep 04 21:05:01 1999 +0200
     1.3 @@ -25,7 +25,7 @@
     1.4  
     1.5      val env = [(name ^ "_prop", prop), (name ^ "_concl", list_abs concl)] @
     1.6        (case concl of Const ("Trueprop", _) $ t => [(name, list_abs t)] | _ => []);
     1.7 -  in map (fn (s, t) => ((Syntax.binding s, 0), t)) env end;
     1.8 +  in map (fn (s, t) => ((s, 0), t)) env end;
     1.9  
    1.10  fun goal prop = statement_binds ("thesis", prop);
    1.11