blob: 33d1cacc75bf50439be76f85b40719014ae9ca9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(*
[build_inductive parametrize funnames funargs returned_types bodies]
constructs and saves the graphs of the functions [funnames] taking [funargs] as arguments
and returning [returned_types] using bodies [bodies]
*)
val build_inductive :
bool -> (* if true try to detect parameter. Always use it as true except for debug *)
Names.identifier list -> (* The list of function name *)
(Names.name*Rawterm.rawconstr*bool) list list -> (* The list of function args *)
Topconstr.constr_expr list -> (* The list of function returned type *)
Rawterm.rawconstr list -> (* the list of body *)
unit
|