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
+;;