changeset 62959 | 19c2a58623ed |
parent 62819 | d3ff367a16a0 |
child 62992 | d2e3b3b159d7 |
--- a/src/Pure/Isar/proof.ML Tue Apr 12 14:38:57 2016 +0200 +++ b/src/Pure/Isar/proof.ML Tue Apr 12 14:50:53 2016 +0200 @@ -600,7 +600,7 @@ let val ctxt' = ctxt |> is_none (Variable.default_type ctxt x) ? - Variable.declare_constraints (Free (x, Proof_Context.default_constraint ctxt mx)); + Variable.declare_constraints (Free (x, Mixfix.default_constraint mx)); val t = Free (#1 (Proof_Context.inferred_param x ctxt')); in ((t, mx), ctxt') end | t => ((t, mx), ctxt));