Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  brfs Structured version   Visualization version   GIF version

Theorem brfs 31356
Description: Binary relationship form of the general five segment predicate. (Contributed by Scott Fenton, 5-Oct-2013.)
Assertion
Ref Expression
brfs (((𝑁 ∈ ℕ ∧ 𝐴 ∈ (𝔼‘𝑁) ∧ 𝐵 ∈ (𝔼‘𝑁)) ∧ (𝐶 ∈ (𝔼‘𝑁) ∧ 𝐷 ∈ (𝔼‘𝑁) ∧ 𝐸 ∈ (𝔼‘𝑁)) ∧ (𝐹 ∈ (𝔼‘𝑁) ∧ 𝐺 ∈ (𝔼‘𝑁) ∧ 𝐻 ∈ (𝔼‘𝑁))) → (⟨⟨𝐴, 𝐵⟩, ⟨𝐶, 𝐷⟩⟩ FiveSeg ⟨⟨𝐸, 𝐹⟩, ⟨𝐺, 𝐻⟩⟩ ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝐺⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, 𝐻⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, 𝐻⟩))))

Proof of Theorem brfs
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑓 𝑔 𝑝 𝑞 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 breq1 4586 . . 3 (𝑎 = 𝐴 → (𝑎 Colinear ⟨𝑏, 𝑐⟩ ↔ 𝐴 Colinear ⟨𝑏, 𝑐⟩))
2 opeq1 4340 . . . 4 (𝑎 = 𝐴 → ⟨𝑎, ⟨𝑏, 𝑐⟩⟩ = ⟨𝐴, ⟨𝑏, 𝑐⟩⟩)
32breq1d 4593 . . 3 (𝑎 = 𝐴 → (⟨𝑎, ⟨𝑏, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ↔ ⟨𝐴, ⟨𝑏, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩))
4 opeq1 4340 . . . . 5 (𝑎 = 𝐴 → ⟨𝑎, 𝑑⟩ = ⟨𝐴, 𝑑⟩)
54breq1d 4593 . . . 4 (𝑎 = 𝐴 → (⟨𝑎, 𝑑⟩Cgr⟨𝑒, ⟩ ↔ ⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩))
65anbi1d 737 . . 3 (𝑎 = 𝐴 → ((⟨𝑎, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩) ↔ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩)))
71, 3, 63anbi123d 1391 . 2 (𝑎 = 𝐴 → ((𝑎 Colinear ⟨𝑏, 𝑐⟩ ∧ ⟨𝑎, ⟨𝑏, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝑎, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩)) ↔ (𝐴 Colinear ⟨𝑏, 𝑐⟩ ∧ ⟨𝐴, ⟨𝑏, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩))))
8 opeq1 4340 . . . 4 (𝑏 = 𝐵 → ⟨𝑏, 𝑐⟩ = ⟨𝐵, 𝑐⟩)
98breq2d 4595 . . 3 (𝑏 = 𝐵 → (𝐴 Colinear ⟨𝑏, 𝑐⟩ ↔ 𝐴 Colinear ⟨𝐵, 𝑐⟩))
108opeq2d 4347 . . . 4 (𝑏 = 𝐵 → ⟨𝐴, ⟨𝑏, 𝑐⟩⟩ = ⟨𝐴, ⟨𝐵, 𝑐⟩⟩)
1110breq1d 4593 . . 3 (𝑏 = 𝐵 → (⟨𝐴, ⟨𝑏, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ↔ ⟨𝐴, ⟨𝐵, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩))
12 opeq1 4340 . . . . 5 (𝑏 = 𝐵 → ⟨𝑏, 𝑑⟩ = ⟨𝐵, 𝑑⟩)
1312breq1d 4593 . . . 4 (𝑏 = 𝐵 → (⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩ ↔ ⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩))
1413anbi2d 736 . . 3 (𝑏 = 𝐵 → ((⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩) ↔ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩)))
159, 11, 143anbi123d 1391 . 2 (𝑏 = 𝐵 → ((𝐴 Colinear ⟨𝑏, 𝑐⟩ ∧ ⟨𝐴, ⟨𝑏, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩)) ↔ (𝐴 Colinear ⟨𝐵, 𝑐⟩ ∧ ⟨𝐴, ⟨𝐵, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩))))
16 opeq2 4341 . . . 4 (𝑐 = 𝐶 → ⟨𝐵, 𝑐⟩ = ⟨𝐵, 𝐶⟩)
1716breq2d 4595 . . 3 (𝑐 = 𝐶 → (𝐴 Colinear ⟨𝐵, 𝑐⟩ ↔ 𝐴 Colinear ⟨𝐵, 𝐶⟩))
1816opeq2d 4347 . . . 4 (𝑐 = 𝐶 → ⟨𝐴, ⟨𝐵, 𝑐⟩⟩ = ⟨𝐴, ⟨𝐵, 𝐶⟩⟩)
1918breq1d 4593 . . 3 (𝑐 = 𝐶 → (⟨𝐴, ⟨𝐵, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ↔ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩))
2017, 193anbi12d 1392 . 2 (𝑐 = 𝐶 → ((𝐴 Colinear ⟨𝐵, 𝑐⟩ ∧ ⟨𝐴, ⟨𝐵, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩)) ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩))))
21 opeq2 4341 . . . . 5 (𝑑 = 𝐷 → ⟨𝐴, 𝑑⟩ = ⟨𝐴, 𝐷⟩)
2221breq1d 4593 . . . 4 (𝑑 = 𝐷 → (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ↔ ⟨𝐴, 𝐷⟩Cgr⟨𝑒, ⟩))
23 opeq2 4341 . . . . 5 (𝑑 = 𝐷 → ⟨𝐵, 𝑑⟩ = ⟨𝐵, 𝐷⟩)
2423breq1d 4593 . . . 4 (𝑑 = 𝐷 → (⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩ ↔ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩))
2522, 24anbi12d 743 . . 3 (𝑑 = 𝐷 → ((⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩) ↔ (⟨𝐴, 𝐷⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩)))
26253anbi3d 1397 . 2 (𝑑 = 𝐷 → ((𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝑑⟩Cgr⟨𝑓, ⟩)) ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩))))
27 opeq1 4340 . . . 4 (𝑒 = 𝐸 → ⟨𝑒, ⟨𝑓, 𝑔⟩⟩ = ⟨𝐸, ⟨𝑓, 𝑔⟩⟩)
2827breq2d 4595 . . 3 (𝑒 = 𝐸 → (⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ↔ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝑓, 𝑔⟩⟩))
29 opeq1 4340 . . . . 5 (𝑒 = 𝐸 → ⟨𝑒, ⟩ = ⟨𝐸, ⟩)
3029breq2d 4595 . . . 4 (𝑒 = 𝐸 → (⟨𝐴, 𝐷⟩Cgr⟨𝑒, ⟩ ↔ ⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩))
3130anbi1d 737 . . 3 (𝑒 = 𝐸 → ((⟨𝐴, 𝐷⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩) ↔ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩)))
3228, 313anbi23d 1394 . 2 (𝑒 = 𝐸 → ((𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩)) ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩))))
33 opeq1 4340 . . . . 5 (𝑓 = 𝐹 → ⟨𝑓, 𝑔⟩ = ⟨𝐹, 𝑔⟩)
3433opeq2d 4347 . . . 4 (𝑓 = 𝐹 → ⟨𝐸, ⟨𝑓, 𝑔⟩⟩ = ⟨𝐸, ⟨𝐹, 𝑔⟩⟩)
3534breq2d 4595 . . 3 (𝑓 = 𝐹 → (⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝑓, 𝑔⟩⟩ ↔ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝑔⟩⟩))
36 opeq1 4340 . . . . 5 (𝑓 = 𝐹 → ⟨𝑓, ⟩ = ⟨𝐹, ⟩)
3736breq2d 4595 . . . 4 (𝑓 = 𝐹 → (⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩ ↔ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩))
3837anbi2d 736 . . 3 (𝑓 = 𝐹 → ((⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩) ↔ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩)))
3935, 383anbi23d 1394 . 2 (𝑓 = 𝐹 → ((𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝑓, ⟩)) ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝑔⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩))))
40 opeq2 4341 . . . . 5 (𝑔 = 𝐺 → ⟨𝐹, 𝑔⟩ = ⟨𝐹, 𝐺⟩)
4140opeq2d 4347 . . . 4 (𝑔 = 𝐺 → ⟨𝐸, ⟨𝐹, 𝑔⟩⟩ = ⟨𝐸, ⟨𝐹, 𝐺⟩⟩)
4241breq2d 4595 . . 3 (𝑔 = 𝐺 → (⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝑔⟩⟩ ↔ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝐺⟩⟩))
43423anbi2d 1396 . 2 (𝑔 = 𝐺 → ((𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝑔⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩)) ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝐺⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩))))
44 opeq2 4341 . . . . 5 ( = 𝐻 → ⟨𝐸, ⟩ = ⟨𝐸, 𝐻⟩)
4544breq2d 4595 . . . 4 ( = 𝐻 → (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ↔ ⟨𝐴, 𝐷⟩Cgr⟨𝐸, 𝐻⟩))
46 opeq2 4341 . . . . 5 ( = 𝐻 → ⟨𝐹, ⟩ = ⟨𝐹, 𝐻⟩)
4746breq2d 4595 . . . 4 ( = 𝐻 → (⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩ ↔ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, 𝐻⟩))
4845, 47anbi12d 743 . . 3 ( = 𝐻 → ((⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩) ↔ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, 𝐻⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, 𝐻⟩)))
49483anbi3d 1397 . 2 ( = 𝐻 → ((𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝐺⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, ⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, ⟩)) ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝐺⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, 𝐻⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, 𝐻⟩))))
50 fveq2 6103 . 2 (𝑛 = 𝑁 → (𝔼‘𝑛) = (𝔼‘𝑁))
51 df-fs 31319 . 2 FiveSeg = {⟨𝑝, 𝑞⟩ ∣ ∃𝑛 ∈ ℕ ∃𝑎 ∈ (𝔼‘𝑛)∃𝑏 ∈ (𝔼‘𝑛)∃𝑐 ∈ (𝔼‘𝑛)∃𝑑 ∈ (𝔼‘𝑛)∃𝑒 ∈ (𝔼‘𝑛)∃𝑓 ∈ (𝔼‘𝑛)∃𝑔 ∈ (𝔼‘𝑛)∃ ∈ (𝔼‘𝑛)(𝑝 = ⟨⟨𝑎, 𝑏⟩, ⟨𝑐, 𝑑⟩⟩ ∧ 𝑞 = ⟨⟨𝑒, 𝑓⟩, ⟨𝑔, ⟩⟩ ∧ (𝑎 Colinear ⟨𝑏, 𝑐⟩ ∧ ⟨𝑎, ⟨𝑏, 𝑐⟩⟩Cgr3⟨𝑒, ⟨𝑓, 𝑔⟩⟩ ∧ (⟨𝑎, 𝑑⟩Cgr⟨𝑒, ⟩ ∧ ⟨𝑏, 𝑑⟩Cgr⟨𝑓, ⟩)))}
527, 15, 20, 26, 32, 39, 43, 49, 50, 51br8 30899 1 (((𝑁 ∈ ℕ ∧ 𝐴 ∈ (𝔼‘𝑁) ∧ 𝐵 ∈ (𝔼‘𝑁)) ∧ (𝐶 ∈ (𝔼‘𝑁) ∧ 𝐷 ∈ (𝔼‘𝑁) ∧ 𝐸 ∈ (𝔼‘𝑁)) ∧ (𝐹 ∈ (𝔼‘𝑁) ∧ 𝐺 ∈ (𝔼‘𝑁) ∧ 𝐻 ∈ (𝔼‘𝑁))) → (⟨⟨𝐴, 𝐵⟩, ⟨𝐶, 𝐷⟩⟩ FiveSeg ⟨⟨𝐸, 𝐹⟩, ⟨𝐺, 𝐻⟩⟩ ↔ (𝐴 Colinear ⟨𝐵, 𝐶⟩ ∧ ⟨𝐴, ⟨𝐵, 𝐶⟩⟩Cgr3⟨𝐸, ⟨𝐹, 𝐺⟩⟩ ∧ (⟨𝐴, 𝐷⟩Cgr⟨𝐸, 𝐻⟩ ∧ ⟨𝐵, 𝐷⟩Cgr⟨𝐹, 𝐻⟩))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 195  wa 383  w3a 1031   = wceq 1475  wcel 1977  cop 4131   class class class wbr 4583  cfv 5804  cn 10897  𝔼cee 25568  Cgrccgr 25570  Cgr3ccgr3 31313   Colinear ccolin 31314   FiveSeg cfs 31315
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pr 4833
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ral 2901  df-rex 2902  df-rab 2905  df-v 3175  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-br 4584  df-opab 4644  df-iota 5768  df-fv 5812  df-fs 31319
This theorem is referenced by:  fscgr  31357  linecgr  31358
  Copyright terms: Public domain W3C validator