Prop
| Set
| Type
+ | CProp
and name =
Name of string
| Anonymous
int * (* ind. typeno, *)
term * term * (* outtype, ind. term *)
term list (* patterns *)
- | Fix of int * inductiveFun list (* funno, functions *)
- | CoFix of int * coInductiveFun list (* funno, functions *)
+ | Fix of int * inductiveFun list (* funno (0 based), funs *)
+ | CoFix of int * coInductiveFun list (* funno (0 based), funs *)
and obj =
Constant of string * term option * term * (* id, body, type, *)
UriManager.uri list (* parameters *)
and context_entry = (* A declaration or definition *)
Decl of term
- | Def of term
+ | Def of term * term option (* body, type (if known) *)
and hypothesis =
(name * context_entry) option (* None means no more accessible *)
and annhypothesis =
id * (name * anncontext_entry) option (* None means no more accessible *)
-and anncontext = annhypothesis list;;
+and anncontext = annhypothesis list
+;;