diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-12-07 19:03:22 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-12-07 19:03:22 +0100 |
commit | 50e3798575aa7ff0a13a483af23a384dee3d8bb7 (patch) | |
tree | 89178fe5fa17ba573142434d80ea7b5d5275b244 /src/trace/smtBtype.ml | |
parent | b2ce048f6550040eb0dd575c8611085fb3264ed4 (diff) | |
parent | 96cd98b3e04aba915cb36cba39e15a39422ab628 (diff) | |
download | smtcoq-50e3798575aa7ff0a13a483af23a384dee3d8bb7.tar.gz smtcoq-50e3798575aa7ff0a13a483af23a384dee3d8bb7.zip |
Merge remote-tracking branch 'origin/coq-8.11' into coq-8.12
Diffstat (limited to 'src/trace/smtBtype.ml')
-rw-r--r-- | src/trace/smtBtype.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/trace/smtBtype.ml b/src/trace/smtBtype.ml index d091758..c610129 100644 --- a/src/trace/smtBtype.ml +++ b/src/trace/smtBtype.ml @@ -304,10 +304,9 @@ let of_coq_compdec reify t compdec = (match i.hval with | CompDec _ -> ty | Delayed _ -> - Hashtbl.remove reify.tbl t; let ce = mklApp cTyp_compdec [|t; compdec|] in - let res = Tindex {index = i.index; hval = CompDec ce} in - Hashtbl.add reify.tbl t res; + i.hval <- CompDec ce; + let res = Tindex i in res ) | _ -> ty |