English
Repeated ret_right statement for LiftRelAux with destruct ca and Sum.inl b.
Русский
Повторная формулировка ret_right для LiftRelAux с destruct ca и Sum.inl b.
LaTeX
$$$\\mathrm{LiftRelAux}\\,R\\,C\\,(\\mathrm{destruct}\\ ca)(\\mathrm{Sum.inl}\\ b) \\Rightarrow \\exists a\\in ca\\, R\\ a\\ b$$$
Lean4
@[simp]
theorem ret_right (R : α → β → Prop) (C : Computation α → Computation β → Prop) (b ca) :
LiftRelAux R C (destruct ca) (Sum.inl b) ↔ ∃ a, a ∈ ca ∧ R a b := by rw [← LiftRelAux.swap, LiftRelAux.ret_left]