changeset 39288 | f1ae2493d93f |
parent 38761 | b32975d3db3e |
child 39557 | fe5722fce758 |
--- a/src/Pure/Proof/extraction.ML Sun Sep 12 17:39:02 2010 +0200 +++ b/src/Pure/Proof/extraction.ML Sun Sep 12 19:04:02 2010 +0200 @@ -164,7 +164,7 @@ |> Proof_Syntax.strip_sorts_consttypes |> ProofContext.set_defsort []; 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; (**** theory data ****)