induction l
case mp
W : Type
l : List Formula
M : KripkeModel W
w : W
satCon : Evaluate (M, w) (bigCon l)
⊢ ∀ φ ∈ l, Evaluate (M, w) φ
case mp.nil
W : Type
M : KripkeModel W
w : W
satCon : Evaluate (M, w) (bigCon [])
⊢ ∀ φ ∈ [], Evaluate (M, w) φ

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