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

Theorem sbequi 1793
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 1791 . . . 4 (∀𝑧 𝑧 = 𝑥 ∨ Ⅎ𝑧[𝑥 / 𝑧]𝜑)
2 nfr 1481 . . . . . 6 (Ⅎ𝑧[𝑥 / 𝑧]𝜑 → ([𝑥 / 𝑧]𝜑 → ∀𝑧[𝑥 / 𝑧]𝜑))
3 equvini 1714 . . . . . . 7 (𝑥 = 𝑦 → ∃𝑧(𝑥 = 𝑧𝑧 = 𝑦))
4 stdpc7 1726 . . . . . . . . 9 (𝑥 = 𝑧 → ([𝑥 / 𝑧]𝜑𝜑))
5 sbequ1 1724 . . . . . . . . 9 (𝑧 = 𝑦 → (𝜑 → [𝑦 / 𝑧]𝜑))
64, 5sylan9 404 . . . . . . . 8 ((𝑥 = 𝑧𝑧 = 𝑦) → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
76eximi 1562 . . . . . . 7 (∃𝑧(𝑥 = 𝑧𝑧 = 𝑦) → ∃𝑧([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
8 19.35-1 1586 . . . . . . 7 (∃𝑧([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑) → (∀𝑧[𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑))
93, 7, 83syl 17 . . . . . 6 (𝑥 = 𝑦 → (∀𝑧[𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑))
102, 9syl9 72 . . . . 5 (Ⅎ𝑧[𝑥 / 𝑧]𝜑 → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑)))
1110orim2i 733 . . . 4 ((∀𝑧 𝑧 = 𝑥 ∨ Ⅎ𝑧[𝑥 / 𝑧]𝜑) → (∀𝑧 𝑧 = 𝑥 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑))))
121, 11ax-mp 5 . . 3 (∀𝑧 𝑧 = 𝑥 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → ∃𝑧[𝑦 / 𝑧]𝜑)))
13 nfsb2or 1791 . . . . 5 (∀𝑧 𝑧 = 𝑦 ∨ Ⅎ𝑧[𝑦 / 𝑧]𝜑)
14 19.9t 1604 . . . . . . 7 (Ⅎ𝑧[𝑦 / 𝑧]𝜑 → (∃𝑧[𝑦 / 𝑧]𝜑 ↔ [𝑦 / 𝑧]𝜑))
1514biimpd 143 . . . . . 6 (Ⅎ𝑧[𝑦 / 𝑧]𝜑 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
1615orim2i 733 . . . . 5 ((∀𝑧 𝑧 = 𝑦 ∨ Ⅎ𝑧[𝑦 / 𝑧]𝜑) → (∀𝑧 𝑧 = 𝑦 ∨ (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
1713, 16ax-mp 5 . . . 4 (∀𝑧 𝑧 = 𝑦 ∨ (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
18 ax-1 6 . . . . 5 ((∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑) → (𝑥 = 𝑦 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
1918orim2i 733 . . . 4 ((∀𝑧 𝑧 = 𝑦 ∨ (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)) → (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))))
2017, 19ax-mp 5 . . 3 (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → (∃𝑧[𝑦 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
2112, 20sbequilem 1792 . 2 (∀𝑧 𝑧 = 𝑥 ∨ (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))))
22 sbequ2 1725 . . . . . . 7 (𝑧 = 𝑥 → ([𝑥 / 𝑧]𝜑𝜑))
2322sps 1500 . . . . . 6 (∀𝑧 𝑧 = 𝑥 → ([𝑥 / 𝑧]𝜑𝜑))
2423adantr 272 . . . . 5 ((∀𝑧 𝑧 = 𝑥𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑𝜑))
25 sbequ1 1724 . . . . . 6 (𝑥 = 𝑦 → (𝜑 → [𝑦 / 𝑥]𝜑))
26 drsb1 1753 . . . . . . . 8 (∀𝑥 𝑥 = 𝑧 → ([𝑦 / 𝑥]𝜑 ↔ [𝑦 / 𝑧]𝜑))
2726biimpd 143 . . . . . . 7 (∀𝑥 𝑥 = 𝑧 → ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑧]𝜑))
2827alequcoms 1479 . . . . . 6 (∀𝑧 𝑧 = 𝑥 → ([𝑦 / 𝑥]𝜑 → [𝑦 / 𝑧]𝜑))
2925, 28sylan9r 405 . . . . 5 ((∀𝑧 𝑧 = 𝑥𝑥 = 𝑦) → (𝜑 → [𝑦 / 𝑧]𝜑))
3024, 29syld 45 . . . 4 ((∀𝑧 𝑧 = 𝑥𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
3130ex 114 . . 3 (∀𝑧 𝑧 = 𝑥 → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
32 drsb1 1753 . . . . . . . . 9 (∀𝑧 𝑧 = 𝑦 → ([𝑥 / 𝑧]𝜑 ↔ [𝑥 / 𝑦]𝜑))
3332biimpd 143 . . . . . . . 8 (∀𝑧 𝑧 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑥 / 𝑦]𝜑))
34 stdpc7 1726 . . . . . . . 8 (𝑥 = 𝑦 → ([𝑥 / 𝑦]𝜑𝜑))
3533, 34sylan9 404 . . . . . . 7 ((∀𝑧 𝑧 = 𝑦𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑𝜑))
365sps 1500 . . . . . . . 8 (∀𝑧 𝑧 = 𝑦 → (𝜑 → [𝑦 / 𝑧]𝜑))
3736adantr 272 . . . . . . 7 ((∀𝑧 𝑧 = 𝑦𝑥 = 𝑦) → (𝜑 → [𝑦 / 𝑧]𝜑))
3835, 37syld 45 . . . . . 6 ((∀𝑧 𝑧 = 𝑦𝑥 = 𝑦) → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
3938ex 114 . . . . 5 (∀𝑧 𝑧 = 𝑦 → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4039orim1i 732 . . . 4 ((∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))) → ((𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)) ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))))
41 pm1.2 728 . . . 4 (((𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)) ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))) → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4240, 41syl 14 . . 3 ((∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))) → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4331, 42jaoi 688 . 2 ((∀𝑧 𝑧 = 𝑥 ∨ (∀𝑧 𝑧 = 𝑦 ∨ (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))) → (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑)))
4421, 43ax-mp 5 1 (𝑥 = 𝑦 → ([𝑥 / 𝑧]𝜑 → [𝑦 / 𝑧]𝜑))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wo 680  wal 1312  wnf 1419  wex 1451  [wsb 1718
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-4 1470  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498
This theorem depends on definitions:  df-bi 116  df-nf 1420  df-sb 1719
This theorem is referenced by:  sbequ  1794
  Copyright terms: Public domain W3C validator