apply IsReplOfFormulaInFormula.imp_
case h1
P Q : Formula
v : VarName
h1 : ¬isFreeIn v P
⊢ IsReplOfFormulaInFormula (forall_ v P) P ((forall_ v (P.imp_ Q)).imp_ ((forall_ v P).imp_ (forall_ v Q)))
    ((forall_ v (P.imp_ Q)).imp_ (P.imp_ (forall_ v Q)))
case h1.a
P Q : Formula
v : VarName
h1 : ¬isFreeIn v P
⊢ IsReplOfFormulaInFormula (forall_ v P) P (forall_ v (P.imp_ Q)) (forall_ v (P.imp_ Q))

case h1.a
P Q : Formula
v : VarName
h1 : ¬isFreeIn v P
⊢ IsReplOfFormulaInFormula (forall_ v P) P ((forall_ v P).imp_ (forall_ v Q)) (P.imp_ (forall_ v Q))