From 34f32c6ac00a9c385baf65861d367e0e1006c1ab Mon Sep 17 00:00:00 2001 From: Chantal Keller Date: Wed, 28 Apr 2021 14:09:03 +0200 Subject: prop2bool_hyps insensitive to parenthesis --- src/PropToBool.v | 4 ++-- src/versions/standard/Tactics_standard.v | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/PropToBool.v b/src/PropToBool.v index 8dc970f..1d85bb0 100644 --- a/src/PropToBool.v +++ b/src/PropToBool.v @@ -211,8 +211,8 @@ Ltac prop2bool_hyp H := ]. Ltac prop2bool_hyps Hs := - match Hs with - | (?Hs, ?H) => try prop2bool_hyp H; [ .. | prop2bool_hyps Hs] + lazymatch Hs with + | (?Hs1, ?Hs2) => prop2bool_hyps Hs1; [ .. | prop2bool_hyps Hs2] | ?H => try prop2bool_hyp H end. diff --git a/src/versions/standard/Tactics_standard.v b/src/versions/standard/Tactics_standard.v index 232ae54..61e663a 100644 --- a/src/versions/standard/Tactics_standard.v +++ b/src/versions/standard/Tactics_standard.v @@ -23,7 +23,7 @@ Ltac get_hyps_acc acc k := match goal with | [ H : ?P |- _ ] => let T := type of P in - match T with + lazymatch T with | Prop => lazymatch P with | id _ => fail -- cgit