diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 17:34:42 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 17:34:42 +0200 |
commit | 1b658795c8e6f0edca2cee48e5f7d39c971e422b (patch) | |
tree | 47d7c8b91471c0a2aaa176a62fcc4c6bb342fb05 /src | |
parent | 9d45fd745ecfd02cb21b3f0e93566b6ee864db38 (diff) | |
parent | fac9967dcfcfd771cbcf17b364b324bc19587159 (diff) | |
download | smtcoq-1b658795c8e6f0edca2cee48e5f7d39c971e422b.tar.gz smtcoq-1b658795c8e6f0edca2cee48e5f7d39c971e422b.zip |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
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 cbca992..9bd73dc 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 |