apply Relation.ReflTransGen.lift
Worlds : Finset (Finset Formula)
MG : ModelGraph Worlds
X Y : { x // x ∈ Worlds }
α : Program
⊢ Relation.ReflTransGen (Q (↑MG).Rel α) X Y → Relation.ReflTransGen (relate (↑MG) α) X Y
case h
Worlds : Finset (Finset Formula)
MG : ModelGraph Worlds
X Y : { x // x ∈ Worlds }
α : Program
⊢ ∀ (a b : { x // x ∈ Worlds }), Q (↑MG).Rel α a b → relate (↑MG) α a b