---

Step * of Lemma product-unit-disjoint

∀[T,S:Type].  (¬T × S ⋂ Unit)
BY
{ (Auto THEN D 0 THEN Auto THEN RenameVar `x' (-1) THEN Assert ⌜ispair(x) = tt ∧ ispair(x) = ff⌝⋅ THEN Auto) }

1
1. T : Type
2. S : Type
3. x : T × S ⋂ Unit
⊢ ispair(x) = tt

2
1. T : Type
2. S : Type
3. x : T × S ⋂ Unit
4. ispair(x) = tt
⊢ ispair(x) = ff

---

Latex:

---

Latex:
\mforall{}[T,S:Type].    (\mneg{}T  \mtimes{}  S  \mcap{}  Unit)


By

---

Latex:
(Auto
  THEN  D  0
  THEN  Auto
  THEN  RenameVar  `x'  (-1)
  THEN  Assert  \mkleeneopen{}ispair(x)  =  tt  \mwedge{}  ispair(x)  =  ff\mkleeneclose{}\mcdot{}
  THEN  Auto)

---

Home Index