:: JORDAN10 semantic presentation

registration
cluster connected compact non horizontal non vertical Element of K40(the carrier of (TOP-REAL 2));
existence
ex b1 being Subset of (TOP-REAL 2) st
( b1 is connected & b1 is compact & not b1 is vertical & not b1 is horizontal )
proof end;
end;

theorem Th1: :: JORDAN10:1
for b1, b2, b3, b4 being Nat
for b5 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) st 1 <= b1 & b1 + 1 <= len (Cage b5,b2) & [b3,b4] in Indices (Gauge b5,b2) & [b3,(b4 + 1)] in Indices (Gauge b5,b2) & (Cage b5,b2) /. b1 = (Gauge b5,b2) * b3,b4 & (Cage b5,b2) /. (b1 + 1) = (Gauge b5,b2) * b3,(b4 + 1) holds
b3 < len (Gauge b5,b2)
proof end;

theorem Th2: :: JORDAN10:2
for b1, b2, b3, b4 being Nat
for b5 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) st 1 <= b1 & b1 + 1 <= len (Cage b5,b2) & [b3,b4] in Indices (Gauge b5,b2) & [b3,(b4 + 1)] in Indices (Gauge b5,b2) & (Cage b5,b2) /. b1 = (Gauge b5,b2) * b3,(b4 + 1) & (Cage b5,b2) /. (b1 + 1) = (Gauge b5,b2) * b3,b4 holds
b3 > 1
proof end;

theorem Th3: :: JORDAN10:3
for b1, b2, b3, b4 being Nat
for b5 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) st 1 <= b1 & b1 + 1 <= len (Cage b5,b2) & [b3,b4] in Indices (Gauge b5,b2) & [(b3 + 1),b4] in Indices (Gauge b5,b2) & (Cage b5,b2) /. b1 = (Gauge b5,b2) * b3,b4 & (Cage b5,b2) /. (b1 + 1) = (Gauge b5,b2) * (b3 + 1),b4 holds
b4 > 1
proof end;

theorem Th4: :: JORDAN10:4
for b1, b2, b3, b4 being Nat
for b5 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) st 1 <= b1 & b1 + 1 <= len (Cage b5,b2) & [b3,b4] in Indices (Gauge b5,b2) & [(b3 + 1),b4] in Indices (Gauge b5,b2) & (Cage b5,b2) /. b1 = (Gauge b5,b2) * (b3 + 1),b4 & (Cage b5,b2) /. (b1 + 1) = (Gauge b5,b2) * b3,b4 holds
b4 < width (Gauge b5,b2)
proof end;

theorem Th5: :: JORDAN10:5
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds b2 misses L~ (Cage b2,b1)
proof end;

theorem Th6: :: JORDAN10:6
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds N-bound (L~ (Cage b2,b1)) = (N-bound b2) + (((N-bound b2) - (S-bound b2)) / (2 |^ b1))
proof end;

theorem Th7: :: JORDAN10:7
for b1, b2 being Nat
for b3 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) st b1 < b2 holds
N-bound (L~ (Cage b3,b2)) < N-bound (L~ (Cage b3,b1))
proof end;

registration
let c1 be connected compact non horizontal non vertical Subset of (TOP-REAL 2);
let c2 be Nat;
cluster Cl (RightComp (Cage a1,a2)) -> compact ;
coherence
Cl (RightComp (Cage c1,c2)) is compact
by GOBRD14:42;
end;

theorem Th8: :: JORDAN10:8
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds N-min b2 in RightComp (Cage b2,b1)
proof end;

theorem Th9: :: JORDAN10:9
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds b2 meets RightComp (Cage b2,b1)
proof end;

theorem Th10: :: JORDAN10:10
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds b2 misses LeftComp (Cage b2,b1)
proof end;

theorem Th11: :: JORDAN10:11
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds b2 c= RightComp (Cage b2,b1)
proof end;

theorem Th12: :: JORDAN10:12
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds b2 c= BDD (L~ (Cage b2,b1))
proof end;

theorem Th13: :: JORDAN10:13
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds UBD (L~ (Cage b2,b1)) c= UBD b2
proof end;

definition
let c1 be compact non horizontal non vertical Subset of (TOP-REAL 2);
func UBD-Family c1 -> set equals :: JORDAN10:def 1
{ (UBD (L~ (Cage a1,b1))) where B is Nat : verum } ;
coherence
{ (UBD (L~ (Cage c1,b1))) where B is Nat : verum } is set
;
func BDD-Family c1 -> set equals :: JORDAN10:def 2
{ (Cl (BDD (L~ (Cage a1,b1)))) where B is Nat : verum } ;
coherence
{ (Cl (BDD (L~ (Cage c1,b1)))) where B is Nat : verum } is set
;
end;

:: deftheorem Def1 defines UBD-Family JORDAN10:def 1 :
for b1 being compact non horizontal non vertical Subset of (TOP-REAL 2) holds UBD-Family b1 = { (UBD (L~ (Cage b1,b2))) where B is Nat : verum } ;

:: deftheorem Def2 defines BDD-Family JORDAN10:def 2 :
for b1 being compact non horizontal non vertical Subset of (TOP-REAL 2) holds BDD-Family b1 = { (Cl (BDD (L~ (Cage b1,b2)))) where B is Nat : verum } ;

definition
let c1 be compact non horizontal non vertical Subset of (TOP-REAL 2);
redefine func UBD-Family as UBD-Family c1 -> Subset-Family of (TOP-REAL 2);
coherence
UBD-Family c1 is Subset-Family of (TOP-REAL 2)
proof end;
redefine func BDD-Family as BDD-Family c1 -> Subset-Family of (TOP-REAL 2);
coherence
BDD-Family c1 is Subset-Family of (TOP-REAL 2)
proof end;
end;

registration
let c1 be compact non horizontal non vertical Subset of (TOP-REAL 2);
cluster UBD-Family a1 -> non empty ;
coherence
not UBD-Family c1 is empty
proof end;
cluster BDD-Family a1 -> non empty ;
coherence
not BDD-Family c1 is empty
proof end;
end;

theorem Th14: :: JORDAN10:14
for b1 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds union (UBD-Family b1) = UBD b1
proof end;

theorem Th15: :: JORDAN10:15
for b1 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds b1 c= meet (BDD-Family b1)
proof end;

theorem Th16: :: JORDAN10:16
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds BDD b2 misses LeftComp (Cage b2,b1)
proof end;

theorem Th17: :: JORDAN10:17
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds BDD b2 c= RightComp (Cage b2,b1)
proof end;

theorem Th18: :: JORDAN10:18
for b1 being Nat
for b2 being Subset of (TOP-REAL 2)
for b3 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) st b2 is_inside_component_of b3 holds
b2 misses L~ (Cage b3,b1)
proof end;

theorem Th19: :: JORDAN10:19
for b1 being Nat
for b2 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds BDD b2 misses L~ (Cage b2,b1)
proof end;

theorem Th20: :: JORDAN10:20
for b1 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds COMPLEMENT (UBD-Family b1) = BDD-Family b1
proof end;

theorem Th21: :: JORDAN10:21
for b1 being connected compact non horizontal non vertical Subset of (TOP-REAL 2) holds meet (BDD-Family b1) = b1 \/ (BDD b1)
proof end;