changeset 62 | facfff975d1a |
parent 47 | 0af9dbb93529 |
child 237 | a7d3e712767a |
--- a/src/Pure/Syntax/printer.ML Thu Oct 21 14:38:06 1993 +0100 +++ b/src/Pure/Syntax/printer.ML Thu Oct 21 14:40:06 1993 +0100 @@ -62,7 +62,7 @@ fun aprop t = Const (apropC, dummyT) $ t; fun is_prop tys tm = - fastype_of (tys, tm) = propT handle TERM _ => false; + fastype_of1 (tys, tm) = propT handle TERM _ => false; fun fix_aprop _ (tm as Const _) = tm | fix_aprop _ (tm as Free (x, ty)) =