rw [starIffFinitelyManyStepsModel] at w_starA_x
a : Program
φ : Formula
W : Type
M : KripkeModel W
w : W
Mwφ : evaluate M w φ
MwStarImpHyp :
  ∀ (v : W), Relation.ReflTransGen (relate M a) w v → evaluate M v φ → ∀ (x : W), relate M a v x → evaluate M x φ
x : W
w_starA_x : Relation.ReflTransGen (relate M a) w x
⊢ evaluate M x φ
a : Program
φ : Formula
W : Type
M : KripkeModel W
w : W
Mwφ : evaluate M w φ
MwStarImpHyp :
  ∀ (v : W), Relation.ReflTransGen (relate M a) w v → evaluate M v φ → ∀ (x : W), relate M a v x → evaluate M x φ
x : W
w_starA_x : ∃ n ys, w = ys.head ∧ x = ys.last ∧ ∀ (i : Fin n), relate M a (ys.get i.castSucc) (ys.get i.succ)
⊢ evaluate M x φ