| TacticAst.Record (_,name,_,_) ->
Some (UriManager.uri_of_string (MatitaMisc.qualify status name ^ ".ind"))
| TacticAst.Inductive _ -> assert false
- | _ -> None in
+ | TacticAst.Theorem _ -> None in
let (aliases, metasenv, cic, _) =
match
MatitaDisambiguator.disambiguate_obj ~dbd:(MatitaDb.instance ())