all_goals aesop
case h.right.inl.inl.inl
W : Type
L R : List Formula
M : KripkeModel W
w : W
ress : List (List Formula × Option NegLoadFormula)
χ : LoadFormula
lrule : LoadRule (~'χ) ress
this :
  ¬evaluate M w (unload χ) ↔
    ∃ f, (∃ a b, (a, b) ∈ ress ∧ Con (a ++ (Option.map negUnload b).toList) = f) ∧ evaluate M w f
hyp : ∀ (f : Formula), (f ∈ L ∨ f ∈ R) ∨ (~unload χ) = f → evaluate M w f
X : List Formula
val : NegLoadFormula
in_ress : (X, some val) ∈ ress
g : Formula
w_f : ∀ f ∈ X ++ (Option.map negUnload (some val)).toList, evaluate M w f
g_in : g ∈ L
⊢ evaluate M w g

case h.right.inl.inl.inr
W : Type
L R : List Formula
M : KripkeModel W
w : W
ress : List (List Formula × Option NegLoadFormula)
χ : LoadFormula
lrule : LoadRule (~'χ) ress
this :
  ¬evaluate M w (unload χ) ↔
    ∃ f, (∃ a b, (a, b) ∈ ress ∧ Con (a ++ (Option.map negUnload b).toList) = f) ∧ evaluate M w f
hyp : ∀ (f : Formula), (f ∈ L ∨ f ∈ R) ∨ (~unload χ) = f → evaluate M w f
X : List Formula
val : NegLoadFormula
in_ress : (X, some val) ∈ ress
g : Formula
w_f : ∀ f ∈ X ++ (Option.map negUnload (some val)).toList, evaluate M w f
g_in : g ∈ X
⊢ evaluate M w g

case h.right.inl.inr
W : Type
L R : List Formula
M : KripkeModel W
w : W
ress : List (List Formula × Option NegLoadFormula)
χ : LoadFormula
lrule : LoadRule (~'χ) ress
this :
  ¬evaluate M w (unload χ) ↔
    ∃ f, (∃ a b, (a, b) ∈ ress ∧ Con (a ++ (Option.map negUnload b).toList) = f) ∧ evaluate M w f
hyp : ∀ (f : Formula), (f ∈ L ∨ f ∈ R) ∨ (~unload χ) = f → evaluate M w f
X : List Formula
val : NegLoadFormula
in_ress : (X, some val) ∈ ress
g : Formula
w_f : ∀ f ∈ X ++ (Option.map negUnload (some val)).toList, evaluate M w f
g_in : g ∈ R
⊢ evaluate M w g

case h.right.inr
W : Type
L R : List Formula
M : KripkeModel W
w : W
ress : List (List Formula × Option NegLoadFormula)
χ : LoadFormula
lrule : LoadRule (~'χ) ress
this :
  ¬evaluate M w (unload χ) ↔
    ∃ f, (∃ a b, (a, b) ∈ ress ∧ Con (a ++ (Option.map negUnload b).toList) = f) ∧ evaluate M w f
hyp : ∀ (f : Formula), (f ∈ L ∨ f ∈ R) ∨ (~unload χ) = f → evaluate M w f
X : List Formula
val : NegLoadFormula
in_ress : (X, some val) ∈ ress
g : Formula
w_f : ∀ f ∈ X ++ (Option.map negUnload (some val)).toList, evaluate M w f
g_in : g ∈ (Option.map (Sum.elim negUnload negUnload) (some (Sum.inl val))).toList
⊢ evaluate M w g
no goals