diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 17:37:08 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 17:37:08 +0200 |
commit | f954fa2cc8a80e2af77c4e7dfbe3a88f9e0f4dc8 (patch) | |
tree | 8c11d620f0b7e58271743b7f5ec2cd118159a7c5 /src | |
parent | 449ca2340377200120343eeace3c056ed099e7bf (diff) | |
parent | 1b658795c8e6f0edca2cee48e5f7d39c971e422b (diff) | |
download | smtcoq-f954fa2cc8a80e2af77c4e7dfbe3a88f9e0f4dc8.tar.gz smtcoq-f954fa2cc8a80e2af77c4e7dfbe3a88f9e0f4dc8.zip |
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.11
Diffstat (limited to 'src')
-rw-r--r-- | src/PropToBool.v | 1 | ||||
-rw-r--r-- | src/trace/smtBtype.ml | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/src/PropToBool.v b/src/PropToBool.v index 7ca180a..0475d75 100644 --- a/src/PropToBool.v +++ b/src/PropToBool.v @@ -221,7 +221,6 @@ Ltac remove_compdec_hyp H := assert (H1 := H p'); clear H; assert (H := H1); clear H1; remove_compdec_hyp H | _ => - idtac 1; let c := fresh "c" in assert (c : CompDec A); [ auto with typeclass_instances diff --git a/src/trace/smtBtype.ml b/src/trace/smtBtype.ml index 1e05dc4..2194a57 100644 --- a/src/trace/smtBtype.ml +++ b/src/trace/smtBtype.ml @@ -310,6 +310,6 @@ let of_coq_compdec reify t compdec = Hashtbl.add reify.tbl t res; res ) - | _ -> assert false + | _ -> ty with Not_found -> declare_compdec reify t compdec |