diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 17:33:45 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 17:33:45 +0200 |
commit | fac9967dcfcfd771cbcf17b364b324bc19587159 (patch) | |
tree | 6c258b3de616e452bef3230cf630136c5b4bb103 /src | |
parent | 907cb562f511e3bbd3f84011e5d3e101f00c4252 (diff) | |
download | smtcoq-fac9967dcfcfd771cbcf17b364b324bc19587159.tar.gz smtcoq-fac9967dcfcfd771cbcf17b364b324bc19587159.zip |
CompDec on interpreted type
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 00cba37..c77647d 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 |