ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  sbequi GIF version

Theorem sbequi 1839
Description: An equality theorem for substitution. (Contributed by NM, 5-Aug-1993.) (Proof modified by Jim Kingdon, 1-Feb-2018.)
Assertion
Ref Expression
sbequi (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))

Proof of Theorem sbequi
StepHypRef Expression
1 nfsb2or 1837 . . . 4 (∀𝑧 𝑧 = 𝑥 ∨ Ⅎ𝑧[𝑥 / 𝑧]𝜑)
2 nfr 1518 . . . . . 6 (Ⅎ𝑧[𝑥 / 𝑧]𝜑 → ([𝑥 / 𝑧]𝜑 → ∀𝑧[𝑥 / 𝑧]𝜑))
3 equvini 1758 . . . . . . 7 (𝑥 = 𝑦 → ∃𝑧(𝑥 = 𝑧𝑧 = 𝑦))
4 stdpc7 1770 . . . . . . . . 9 (𝑥 = 𝑧 → ([𝑥 / 𝑧]𝜑𝜑))
5 sbequ1 1768 . . . . . . . . 9 (𝑧 = 𝑦 → (𝜑 → [𝑦 / 𝑧]𝜑))
64, 5sylan9 409 . . . . . . . 8 ((𝑥 = 𝑧𝑧 = 𝑦) → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
76eximi 1600 . . . . . . 7 (∃𝑧(𝑥 = 𝑧𝑧 = 𝑦) → ∃𝑧([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
8 19.35-1 1624 . . . . . . 7 (∃𝑧([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑) → (∀𝑧[𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑))
93, 7, 83syl 17 . . . . . 6 (𝑥 = 𝑦 → (∀𝑧[𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑))
102, 9syl9 72 . . . . 5 (Ⅎ𝑧[𝑥 / 𝑧]𝜑 → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑)))
1110orim2i 761 . . . 4 ((∀𝑧 𝑧 = 𝑥 ∨ Ⅎ𝑧[𝑥 / 𝑧]𝜑) → (∀𝑧 𝑧 = 𝑥 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑))))
121, 11ax-mp 5 . . 3 (∀𝑧 𝑧 = 𝑥 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑)))
13 nfsb2or 1837 . . . . 5 (∀𝑧 𝑧 = 𝑦 ∨ Ⅎ𝑧[𝑦 / 𝑧]𝜑)
14 19.9t 1642 . . . . . . 7 (Ⅎ𝑧[𝑦 / 𝑧]𝜑 → (∃𝑧[𝑦 / 𝑧]𝜑 ↔ [𝑦 / 𝑧]𝜑))
1514biimpd 144 . . . . . 6 (Ⅎ𝑧[𝑦 / 𝑧]𝜑 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
1615orim2i 761 . . . . 5 ((∀𝑧 𝑧 = 𝑦 ∨ Ⅎ𝑧[𝑦 / 𝑧]𝜑) → (∀𝑧 𝑧 = 𝑦 ∨ (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
1713, 16ax-mp 5 . . . 4 (∀𝑧 𝑧 = 𝑦 ∨ (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
18 ax-1 6 . . . . 5 ((∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑) → (𝑥 = 𝑦 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
1918orim2i 761 . . . 4 ((∀𝑧 𝑧 = 𝑦 ∨ (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)) → (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))))
2017, 19ax-mp 5 . . 3 (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
2112, 20sbequilem 1838 . 2 (∀𝑧 𝑧 = 𝑥 ∨ (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))))
22 sbequ2 1769 . . . . . . 7 (𝑧 = 𝑥 → ([𝑥 / 𝑧]𝜑𝜑))
2322sps 1537 . . . . . 6 (∀𝑧 𝑧 = 𝑥 → ([𝑥 / 𝑧]𝜑𝜑))
2423adantr 276 . . . . 5 ((∀𝑧 𝑧 = 𝑥𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑𝜑))
25 sbequ1 1768 . . . . . 6 (𝑥 = 𝑦 → (𝜑 → [𝑦 / 𝑥]𝜑))
26 drsb1 1799 . . . . . . . 8 (∀𝑥 𝑥 = 𝑧 → ([𝑦 / 𝑥]𝜑 ↔ [𝑦 / 𝑧]𝜑))
2726biimpd 144 . . . . . . 7 (∀𝑥 𝑥 = 𝑧 → ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑧]𝜑))
2827alequcoms 1516 . . . . . 6 (∀𝑧 𝑧 = 𝑥 → ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑧]𝜑))
2925, 28sylan9r 410 . . . . 5 ((∀𝑧 𝑧 = 𝑥𝑥 = 𝑦) → (𝜑 → [𝑦 / 𝑧]𝜑))
3024, 29syld 45 . . . 4 ((∀𝑧 𝑧 = 𝑥𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
3130ex 115 . . 3 (∀𝑧 𝑧 = 𝑥 → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
32 drsb1 1799 . . . . . . . . 9 (∀𝑧 𝑧 = 𝑦 → ([𝑥 / 𝑧]𝜑 ↔ [𝑥 / 𝑦]𝜑))
3332biimpd 144 . . . . . . . 8 (∀𝑧 𝑧 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑥 / 𝑦]𝜑))
34 stdpc7 1770 . . . . . . . 8 (𝑥 = 𝑦 → ([𝑥 / 𝑦]𝜑𝜑))
3533, 34sylan9 409 . . . . . . 7 ((∀𝑧 𝑧 = 𝑦𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑𝜑))
365sps 1537 . . . . . . . 8 (∀𝑧 𝑧 = 𝑦 → (𝜑 → [𝑦 / 𝑧]𝜑))
3736adantr 276 . . . . . . 7 ((∀𝑧 𝑧 = 𝑦𝑥 = 𝑦) → (𝜑 → [𝑦 / 𝑧]𝜑))
3835, 37syld 45 . . . . . 6 ((∀𝑧 𝑧 = 𝑦𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
3938ex 115 . . . . 5 (∀𝑧 𝑧 = 𝑦 → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4039orim1i 760 . . . 4 ((∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))) → ((𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)) ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))))
41 pm1.2 756 . . . 4 (((𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)) ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))) → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4240, 41syl 14 . . 3 ((∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))) → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4331, 42jaoi 716 . 2 ((∀𝑧 𝑧 = 𝑥 ∨ (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))) → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4421, 43ax-mp 5 1 (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wo 708  wal 1351  wnf 1460  wex 1492  [wsb 1762
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535
This theorem depends on definitions:  df-bi 117  df-nf 1461  df-sb 1763
This theorem is referenced by:  sbequ  1840
  Copyright terms: Public domain W3C validator