diff options
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 |