diff options
| author | Hugo Herbelin | 2019-05-11 00:21:22 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-05-11 00:21:22 +0200 |
| commit | 1fb2819d57d16196fd8dc7cb49e72b9e1d22758e (patch) | |
| tree | cef9145a06a6d9e79626ca05471ac9dd4aa89dc6 /tactics/equality.ml | |
| parent | 2f2658c5a318fb8a8c00caf4d1aca9fbc2d060d0 (diff) | |
| parent | 1b4c0a1e52286d4957f6c79c8ff14868a6f3e838 (diff) | |
Merge PR #10052: Cleanup the hypothesis conversion function
Reviewed-by: herbelin
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 3d760f1c3d..f049f8c568 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1613,10 +1613,10 @@ let cutSubstInHyp l2r eqn id = tclTHEN (Proofview.Unsafe.tclEVARS sigma) (tclTHENFIRST (tclTHENLIST [ - (change_in_hyp None (make_change_arg typ) (id,InHypTypeOnly)); + (change_in_hyp ~check:true None (make_change_arg typ) (id,InHypTypeOnly)); (replace_core (onHyp id) l2r eqn) ]) - (change_in_hyp None (make_change_arg expected) (id,InHypTypeOnly))) + (change_in_hyp ~check:true None (make_change_arg expected) (id,InHypTypeOnly))) end let try_rewrite tac = |