diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 16:26:42 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 16:26:42 +0200 |
| commit | 0a5ce82066855bae205f9536c008715eebb470f2 (patch) | |
| tree | d07ce5a99b4d680c31e2e43f635ad4d37dff8945 /src/trace/smtBtype.ml | |
| parent | c7f38ea3b96ee0e52f0e1f20ccfabd3206ff6ad2 (diff) | |
| parent | 0a0dc47da1916c2a850610cfb80ba04c17e64549 (diff) | |
| download | smtcoq-0a5ce82066855bae205f9536c008715eebb470f2.tar.gz smtcoq-0a5ce82066855bae205f9536c008715eebb470f2.zip | |
Merge remote-tracking branch 'remotes/origin/coq-8.12' into coq-8.13
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 |