fact: Definition tmGenEncodeInj (n : ident) (A : Type) : TemplateMonad unit := d <- tmGenEncode n A;; n2 <- tmEval cbv ((n ++ "_inj"));; i <- Core.tmLemma n2 (@encInj A d);; n3 <- tmEval cbv ("encInj_" ++ n) ;; d <- tmInstanceRed n3 None i;; ret tt.
imports: Undecidability.L(L Tactics.Computable Tactics.ComputableTactics Tactics.Extract) MetaCoq(Template.All TemplateMonad.Core Template.Ast) List MetaCoq.Utils.bytestring