src/Tools/misc_legacy.ML
changeset 39288 f1ae2493d93f
parent 37781 2fbbf0a48cef
child 42284 326f57825e1a
--- a/src/Tools/misc_legacy.ML	Sun Sep 12 17:39:02 2010 +0200
+++ b/src/Tools/misc_legacy.ML	Sun Sep 12 19:04:02 2010 +0200
@@ -30,7 +30,7 @@
       |> ProofContext.allow_dummies
       |> ProofContext.set_mode ProofContext.mode_schematic;
     val parse = if T = propT then Syntax.parse_prop else Syntax.parse_term;
-  in parse ctxt s |> Type_Infer.constrain T |> Syntax.check_term ctxt end;
+  in parse ctxt s |> Type.constraint T |> Syntax.check_term ctxt end;
 
 
 (**** METAHYPS -- tactical for using hypotheses as meta-level assumptions