induction' X with g X IH
X : List Formula
f : Formula
W : Type
M : KripkeModel W
w : W
⊢ evaluate M w (dis (f :: X)) ↔ evaluate M w f ∨ evaluate M w (dis X)
case nil
f : Formula
W : Type
M : KripkeModel W
w : W
⊢ evaluate M w (dis [f]) ↔ evaluate M w f ∨ evaluate M w (dis [])

case cons
f : Formula
W : Type
M : KripkeModel W
w : W
g : Formula
X : List Formula
IH : evaluate M w (dis (f :: X)) ↔ evaluate M w f ∨ evaluate M w (dis X)
⊢ evaluate M w (dis (f :: g :: X)) ↔ evaluate M w f ∨ evaluate M w (dis (g :: X))