-val eval_ast :
- ?do_heavy_checks:bool ->
- GrafiteTypes.status ->
- string * int *
- ((CicNotationPt.term, CicNotationPt.term,
- CicNotationPt.term GrafiteAst.reduction, CicNotationPt.term CicNotationPt.obj, string)
- GrafiteAst.statement) ->
- (GrafiteTypes.status *
- (DisambiguateTypes.domain_item * LexiconAst.alias_spec) option) list
+exception TryingToAdd of string Lazy.t
+exception EnrichedWithStatus of exn * GrafiteTypes.status
+exception AlreadyLoaded of string Lazy.t
+exception FailureCompiling of string * exn
+exception CircularDependency of string
+
+class status:
+ string ->
+ object
+ inherit GrafiteTypes.status
+ inherit ApplyTransformation.status
+ end