author | lcp |
Thu, 21 Oct 1993 14:40:06 +0100 | |
changeset 62 | facfff975d1a |
parent 61 | f8c1922b78e3 |
child 63 | b1349b598560 |
--- 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)) =