apply h
case a
C : _root_.Container
R S : Type u₁
eq : R → S → Prop
P : Free C R → Free C S → Prop
h : ∀ (x : Free C R) (y : Free C S), P x y → equivF eq (P ⊔ pequiv eq P) x y
x : Free C R
y : Free C S
h' : P x y
⊢ P ≤ ↑(equivF' eq) (P ⊔ ↑(pgfp (equivF' eq)) P)

case a
C : _root_.Container
R S : Type u₁
eq : R → S → Prop
P : Free C R → Free C S → Prop
h : ∀ (x : Free C R) (y : Free C S), P x y → equivF eq (P ⊔ pequiv eq P) x y
x : Free C R
y : Free C S
h' : P x y
⊢ P x y
case a
C : _root_.Container
R S : Type u₁
eq : R → S → Prop
P : Free C R → Free C S → Prop
h : ∀ (x : Free C R) (y : Free C S), P x y → equivF eq (P ⊔ pequiv eq P) x y
x : Free C R
y : Free C S
h' : P x y
⊢ P x y