---

Step * of Lemma equipollent-implies-equal

No Annotations
∀[k,m:ℕ].  k = m ∈ ℤ supposing ℕk ~ ℕm
BY
{ (Auto
   THEN (Assert k ≤ m BY
               (BLemma `injection_le` THEN Auto THEN D -1 THEN D 0 With ⌜f⌝  THEN Auto))
   THEN (Assert ℕm ~ ℕk BY
               EAuto 1)
   THEN (Assert m ≤ k BY
               (BLemma `injection_le` THEN Auto THEN D -1 THEN D 0 With ⌜f⌝  THEN Auto))
   THEN Auto) }

---

Latex:

---

Latex:
No  Annotations
\mforall{}[k,m:\mBbbN{}].    k  =  m  supposing  \mBbbN{}k  \msim{}  \mBbbN{}m


By

---

Latex:
(Auto
  THEN  (Assert  k  \mleq{}  m  BY
                          (BLemma  `injection\_le`  THEN  Auto  THEN  D  -1  THEN  D  0  With  \mkleeneopen{}f\mkleeneclose{}    THEN  Auto))
  THEN  (Assert  \mBbbN{}m  \msim{}  \mBbbN{}k  BY
                          EAuto  1)
  THEN  (Assert  m  \mleq{}  k  BY
                          (BLemma  `injection\_le`  THEN  Auto  THEN  D  -1  THEN  D  0  With  \mkleeneopen{}f\mkleeneclose{}    THEN  Auto))
  THEN  Auto)

---

Home Index