diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:06:08 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:06:08 +0200 |
commit | 1f21e1f95d43f5e76e38e1737de9a2a0322fd71c (patch) | |
tree | 68192813dab5806dcfd608d1c474b4030b0006f6 /src/PropToBool.v | |
parent | 965520037392fa6c523348e3ff9dff5b9d5c2313 (diff) | |
parent | 65c185275f8c78908c1496c6665bc7fd50a4607b (diff) | |
download | smtcoq-1f21e1f95d43f5e76e38e1737de9a2a0322fd71c.tar.gz smtcoq-1f21e1f95d43f5e76e38e1737de9a2a0322fd71c.zip |
Merge remote-tracking branch 'origin/coq-8.11' into coq-8.12
Diffstat (limited to 'src/PropToBool.v')
-rw-r--r-- | src/PropToBool.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/PropToBool.v b/src/PropToBool.v index d71c81c..5a7bf53 100644 --- a/src/PropToBool.v +++ b/src/PropToBool.v @@ -164,10 +164,10 @@ Ltac prop2bool_hyp H := destruct HFalse | ]; clear H'; - match (eval compute in prop2bool_comp) with + lazymatch (eval compute in prop2bool_comp) with | true => let A := eval cbv in prop2bool_t in - match goal with + lazymatch goal with | [ _ : CompDec A |- _ ] => idtac | _ => let Hcompdec := fresh "Hcompdec" in @@ -195,7 +195,7 @@ Ltac prop2bool_hyp H := | _ => prop2bool end in tac_rec; - match goal with + lazymatch goal with | [ |- ?g ] => only [prop2bool_Hbool_evar]: refine g end; destruct HFalse @@ -213,9 +213,9 @@ Ltac prop2bool_hyp H := Ltac remove_compdec_hyp H := let TH := type of H in - match TH with + lazymatch TH with | forall p : CompDec ?A, _ => - match goal with + lazymatch goal with | [ p' : CompDec A |- _ ] => let H1 := fresh in assert (H1 := H p'); clear H; assert (H := H1); clear H1; |