simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-07 19:55:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

reexport more types in Term

Browse source
This commit is contained in:
Simon Cruanes 2018-02-17 15:33:24 -06:00
parent e1717f3afe
commit 9e52183b45
2 changed files with 24 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/smt/Term.ml
View file

@ -1,7 +1,18 @@
open Solver_types open Solver_types
type t = term type t = term = {
mutable term_id : int;
mutable term_ty : ty;
term_cell : t term_cell;
}
type 'a cell = 'a term_cell =
| Bool of bool
| App_cst of cst * 'a IArray.t
| If of 'a * 'a * 'a
| Case of 'a * 'a ID.Map.t
| Custom of { view : 'a term_view_custom; tc : term_view_tc; }
type 'a custom = 'a Solver_types.term_view_custom = .. type 'a custom = 'a Solver_types.term_view_custom = ..

13
src/smt/Term.mli
View file

@ -1,7 +1,18 @@
open Solver_types open Solver_types
type t = term type t = term = {
mutable term_id : int;
mutable term_ty : ty;
term_cell : t term_cell;
}
type 'a cell = 'a term_cell =
| Bool of bool
| App_cst of cst * 'a IArray.t
| If of 'a * 'a * 'a
| Case of 'a * 'a ID.Map.t
| Custom of { view : 'a term_view_custom; tc : term_view_tc; }
type 'a custom = 'a Solver_types.term_view_custom = .. type 'a custom = 'a Solver_types.term_view_custom = ..