blob: 5d45ca4eabed8100cac9f8dd53a0a041f90a76d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
(**************************************************************************)
(* *)
(* SMTCoq *)
(* Copyright (C) 2011 - 2019 *)
(* *)
(* See file "AUTHORS" for the list of authors *)
(* *)
(* This file is distributed under the terms of the CeCILL-C licence *)
(* *)
(**************************************************************************)
open SmtMisc
type indexed_type = Structures.constr gen_hashed
val dummy_indexed_type: int -> indexed_type
val indexed_type_index : indexed_type -> int
val indexed_type_hval : indexed_type -> Structures.constr
type btype =
| TZ
| Tbool
| Tpositive
| TBV of int
| TFArray of btype * btype
| Tindex of indexed_type
val indexed_type_of_int : int -> Structures.constr SmtMisc.gen_hashed
val equal : btype -> btype -> bool
val to_coq : btype -> Structures.constr
val to_smt : Format.formatter -> btype -> unit
type reify_tbl
val create : unit -> reify_tbl
val declare : reify_tbl -> Structures.constr -> Structures.constr -> btype
val of_coq : reify_tbl -> logic -> Structures.constr -> btype
val get_coq_type_op : int -> Structures.constr
val interp_tbl : reify_tbl -> Structures.constr
val to_list : reify_tbl -> (int * indexed_type) list
val make_t_i : reify_tbl -> Structures.constr
val dec_interp : Structures.constr -> btype -> Structures.constr
val ord_interp : Structures.constr -> btype -> Structures.constr
val comp_interp : Structures.constr -> btype -> Structures.constr
val inh_interp : Structures.constr -> btype -> Structures.constr
val interp : Structures.constr -> btype -> Structures.constr
val interp_to_coq : reify_tbl -> btype -> Structures.constr
val get_cuts : reify_tbl -> (Structures.id * Structures.types) list
val logic : btype -> logic
|