induction l
case mp
W : Type
l : List Formula
M : KripkeModel W
w : W
satDis : Evaluate (M, w) (bigDis l)
⊢ ∃ φ ∈ l, Evaluate (M, w) φ
case mp.nil
W : Type
M : KripkeModel W
w : W
satDis : Evaluate (M, w) (bigDis [])
⊢ ∃ φ ∈ [], Evaluate (M, w) φ

case mp.cons
W : Type
M : KripkeModel W
w : W
head✝ : Formula
tail✝ : List Formula
tail_ih✝ : Evaluate (M, w) (bigDis tail✝) → ∃ φ ∈ tail✝, Evaluate (M, w) φ
satDis : Evaluate (M, w) (bigDis (head✝ :: tail✝))
⊢ ∃ φ ∈ head✝ :: tail✝, Evaluate (M, w) φ