simp
case dia
W : Type
M : KripkeModel W
w : W
α✝ : Program
φ✝ : Formula
⊢ evaluate M w (Con [~⌈α✝⌉φ✝]) ↔ evaluate M w (discon (unfoldDiamond α✝ φ✝))
case dia
W : Type
M : KripkeModel W
w : W
α✝ : Program
φ✝ : Formula
⊢ (∃ x, relate M α✝ w x ∧ ¬evaluate M x φ✝) ↔ evaluate M w (discon (unfoldDiamond α✝ φ✝))