diff options
| author | Maxime Dénès | 2017-06-14 15:08:43 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-06-14 15:08:43 +0200 |
| commit | dcc5064bbc6f01b498abfdf80f0ea13a26381926 (patch) | |
| tree | c2855cff0206cf55b8a09ad91e087d6ee5a9d845 /vernac | |
| parent | aed7a86b2147e70bebd50a4d19bac33908da334b (diff) | |
| parent | 0fad09306982a88ff8d633d36abdc440dd542ab3 (diff) | |
Merge PR#622: Change the default flag value for Refine.refine
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index 8e6a0f6a72..aba61146c7 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -341,7 +341,7 @@ let new_instance ?(abstract=false) ?(global=false) ?(refine= !refine_instance) p if not (Option.is_empty term) then let init_refine = Tacticals.New.tclTHENLIST [ - Refine.refine (fun evm -> (evm,EConstr.of_constr (Option.get term))); + Refine.refine ~typecheck:false (fun evm -> (evm,EConstr.of_constr (Option.get term))); Proofview.Unsafe.tclNEWGOALS gls; Tactics.New.reduce_after_refine; ] |