Theorem: combMo_preserves_truth_at_oldWOrld
Proof state before:
case left.mp.intro.intro.intro.intro.inr.mk
β : Type
collection : β → (W : Type) × ℕ × KripkeModel W × W
newVal : ℕ → Prop
mF : Formula
mR : β
moW : (collection mR).fst
a b : Program
IH_b :
  (∀ (R : β) (oldWorld₁ oldWorld₂ : (collection R).fst),
      relate (combinedModel collection newVal).1 b (Sum.inr ⟨R, oldWorld₁⟩) (Sum.inr ⟨R, oldWorld₂⟩) ↔
        relate (collection R).snd.2.1 b oldWorld₁ oldWorld₂) ∧
    (∀ (R₁ R₂ : β) (oldWorld₁ : (collection R₁).fst) (oldWorld₂ : (collection R₂).fst),
        R₁ ≠ R₂ → ¬relate (combinedModel collection newVal).1 b (Sum.inr ⟨R₁, oldWorld₁⟩) (Sum.inr ⟨R₂, oldWorld₂⟩)) ∧
      ∀ (R : β) (oldWorld : (collection R).fst),
        ¬relate (combinedModel collection newVal).1 b (Sum.inr ⟨R, oldWorld⟩) (Sum.inl ())
R : β
oldWorld₁ oldWorld₂ : (collection R).fst
IH_rel :
  ∀ (R : β) (oldWorld₁ oldWorld₂ : (collection R).fst),
    relate (combinedModel collection newVal).1 a (Sum.inr ⟨R, oldWorld₁⟩) (Sum.inr ⟨R, oldWorld₂⟩) ↔
      relate (collection R).snd.2.1 a oldWorld₁ oldWorld₂
noNewL :
  ∀ (R : β) (oldWorld : (collection R).fst),
    ¬relate (combinedModel collection newVal).1 a (Sum.inr ⟨R, oldWorld⟩) (Sum.inl ())
otherR : β
otherWorld : (collection otherR).fst
a_rel_u : relate (combinedModel collection newVal).1 a (Sum.inr ⟨R, oldWorld₁⟩) (Sum.inr ⟨otherR, otherWorld⟩)
u_rel_b : relate (combinedModel collection newVal).1 b (Sum.inr ⟨otherR, otherWorld⟩) (Sum.inr ⟨R, oldWorld₂⟩)
sameR :
  R ≠ otherR → ¬relate (combinedModel collection newVal).1 a (Sum.inr ⟨R, oldWorld₁⟩) (Sum.inr ⟨otherR, otherWorld⟩)
⊢ relate (collection R).snd.2.1 (a;'b) oldWorld₁ oldWorld₂
Tactic:
simp_all
Proof state after:
case left.mp.intro.intro.intro.intro.inr.mk
β : Type
collection : β → (W : Type) × ℕ × KripkeModel W × W
newVal : ℕ → Prop
mF : Formula
mR : β
moW : (collection mR).fst
a b : Program
R : β
oldWorld₁ oldWorld₂ : (collection R).fst
otherR : β
otherWorld : (collection otherR).fst
IH_b :
  (∀ (R : β) (oldWorld₁ oldWorld₂ : (collection R).fst),
      relate (combinedModel collection newVal).1 b (Sum.inr ⟨R, oldWorld₁⟩) (Sum.inr ⟨R, oldWorld₂⟩) ↔
        relate (collection R).snd.2.1 b oldWorld₁ oldWorld₂) ∧
    (∀ (R₁ R₂ : β) (oldWorld₁ : (collection R₁).fst) (oldWorld₂ : (collection R₂).fst),
        ¬R₁ = R₂ → ¬relate (combinedModel collection newVal).1 b (Sum.inr ⟨R₁, oldWorld₁⟩) (Sum.inr ⟨R₂, oldWorld₂⟩)) ∧
      ∀ (R : β) (oldWorld : (collection R).fst),
        ¬relate (combinedModel collection newVal).1 b (Sum.inr ⟨R, oldWorld⟩) (Sum.inl ())
IH_rel :
  ∀ (R : β) (oldWorld₁ oldWorld₂ : (collection R).fst),
    relate (combinedModel collection newVal).1 a (Sum.inr ⟨R, oldWorld₁⟩) (Sum.inr ⟨R, oldWorld₂⟩) ↔
      relate (collection R).snd.2.1 a oldWorld₁ oldWorld₂
noNewL :
  ∀ (R : β) (oldWorld : (collection R).fst),
    ¬relate (combinedModel collection newVal).1 a (Sum.inr ⟨R, oldWorld⟩) (Sum.inl ())
a_rel_u : relate (combinedModel collection newVal).1 a (Sum.inr ⟨R, oldWorld₁⟩) (Sum.inr ⟨otherR, otherWorld⟩)
u_rel_b : relate (combinedModel collection newVal).1 b (Sum.inr ⟨otherR, otherWorld⟩) (Sum.inr ⟨R, oldWorld₂⟩)
sameR : R = otherR
⊢ ∃ y, relate (collection R).snd.2.1 a oldWorld₁ y ∧ relate (collection R).snd.2.1 b y oldWorld₂