diff options
Diffstat (limited to 'src/trace')
-rw-r--r-- | src/trace/smtBtype.ml | 2 | ||||
-rw-r--r-- | src/trace/smtBtype.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/trace/smtBtype.ml b/src/trace/smtBtype.ml index 8580ed0..0ebb893 100644 --- a/src/trace/smtBtype.ml +++ b/src/trace/smtBtype.ml @@ -77,7 +77,7 @@ let rec logic = function type reify_tbl = { mutable count : int; tbl : (Term.constr, btype) Hashtbl.t; - mutable cuts : (Structures.names_id_t * Term.types) list; + mutable cuts : (Structures.names_id * Term.types) list; unsup_tbl : (btype, btype) Hashtbl.t; } diff --git a/src/trace/smtBtype.mli b/src/trace/smtBtype.mli index 559e809..4f8d4ad 100644 --- a/src/trace/smtBtype.mli +++ b/src/trace/smtBtype.mli @@ -59,6 +59,6 @@ val interp : Term.constr -> btype -> Term.constr val interp_to_coq : reify_tbl -> btype -> Term.constr -val get_cuts : reify_tbl -> (Structures.names_id_t * Term.types) list +val get_cuts : reify_tbl -> (Structures.names_id * Term.types) list val logic : btype -> logic |