diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-12-07 18:53:40 +0100 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-12-07 18:53:40 +0100 |
| commit | bd346e44c8993b758013d98855b71404e4d0ad7f (patch) | |
| tree | 1776b59de0695a5da15141b80cab144136d2dd54 /src/trace/smtBtype.ml | |
| parent | 0a459d80f75f0abbc60936c3e5b99d993272ce6b (diff) | |
| download | smtcoq-bd346e44c8993b758013d98855b71404e4d0ad7f.tar.gz smtcoq-bd346e44c8993b758013d98855b71404e4d0ad7f.zip | |
Solved bug in delayed ComDec
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 3b6d107..7c08157 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 |