x
| _ -> assert false
+ method disambiguateTermAsts ?(metasenv = []) ?env asts =
+ let ast = CicAst.pack asts in
+ let (env, metasenv, term, ugraph) =
+ self#disambiguateTermAst ~context:[] ~metasenv ?env ast
+ in
+ (env, metasenv, CicUtil.unpack term, ugraph)
+
method disambiguateTerm ?context ?metasenv ?env stream =
self#disambiguateTermAst ?context ?metasenv ?env
(parserr#parseTerm stream)