fact: Definition name_of (t : Ast.term) : ident := match t with tConst (modp, n) _ => String.of_string (name_after_dot (String.to_string n)) | tConstruct (mkInd (modp, n) _) i _ => "cnstr_" ++ String.of_string (name_after_dot (String.to_string n)) ++ string_of_int i | tInd (mkInd (modp, n) _) _ => "type_" ++ String.of_string (name_after_dot (String.to_string n)) | tVar i => "var_" ++ i | _ => "no_name" end.
imports: Ascii String Undecidability.L(Util.L_facts) MetaCoq(Template.All Template.Checker) Undecidability.Shared.Libs.PSL.Base MetaCoq.Utils.bytestring