---

Step * of Lemma implies-rel_plus

∀[T:Type]. ∀[R:T ⟶ T ⟶ Type]. ∀[x:T].  ∀y:T. ((R x y) ⇒ (R+ x y))
BY
{ (Unfold `rel_plus` 0 THEN Auto THEN Reduce 0 THEN D 0 With ⌜1⌝  THEN Auto THEN RWO "rel_exp1" 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[R:T  {}\mrightarrow{}  T  {}\mrightarrow{}  Type].  \mforall{}[x:T].    \mforall{}y:T.  ((R  x  y)  {}\mRightarrow{}  (R\msupplus{}  x  y))


By

---

Latex:
(Unfold  `rel\_plus`  0
  THEN  Auto
  THEN  Reduce  0
  THEN  D  0  With  \mkleeneopen{}1\mkleeneclose{} 
  THEN  Auto
  THEN  RWO  "rel\_exp1"  0
  THEN  Auto)

---

Home Index