diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 14:32:37 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 14:32:37 +0200 |
| commit | 0a0dc47da1916c2a850610cfb80ba04c17e64549 (patch) | |
| tree | 022eaa0105a039341d09ec8b8ec530cc64c935f4 /src/trace/smtBtype.ml | |
| parent | fd20ab4585d6e445cd9998ca33e70eb046613be1 (diff) | |
| parent | fa531ff0ef33557d38584f03126caea9507a5a67 (diff) | |
| download | smtcoq-0a0dc47da1916c2a850610cfb80ba04c17e64549.tar.gz smtcoq-0a0dc47da1916c2a850610cfb80ba04c17e64549.zip | |
Merge remote-tracking branch 'remotes/origin/coq-8.11' into coq-8.12
Diffstat (limited to 'src/trace/smtBtype.ml')
| -rw-r--r-- | src/trace/smtBtype.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/trace/smtBtype.ml b/src/trace/smtBtype.ml index c9aad70..d091758 100644 --- a/src/trace/smtBtype.ml +++ b/src/trace/smtBtype.ml @@ -51,7 +51,7 @@ let index_tbl = Hashtbl.create 17 let index_to_coq i = try Hashtbl.find index_tbl i with Not_found -> - let interp = mklApp cTindex [|mkInt i|] in + let interp = mklApp cTindex [|mkN i|] in Hashtbl.add index_tbl i interp; interp |