fact: Definition tmInstanceRed name red {X} (x:X) := def' <- tmDefinitionRed name red x;; def <- tmQuote def';; match def with tConst name _ => tmExistingInstance global (ConstRef name) | _ => tmFail "internal invariant violated : tmInstanceRed" end;; tmReturn def'.
imports: Ascii String Undecidability.L(Util.L_facts) MetaCoq(Template.All Template.Checker) Undecidability.Shared.Libs.PSL.Base MetaCoq.Utils.bytestring