:: HOMOTHET semantic presentation
Lemma1:
for b1 being AffinPlane holds
( b1 satisfies_DES iff for b2, b3, b4, b5, b6, b7, b8 being Element of b1 holds
( LIN b2,b3,b4 & LIN b2,b5,b6 & LIN b2,b7,b8 & not LIN b2,b3,b5 & not LIN b2,b3,b7 & b3,b5 // b4,b6 & b3,b7 // b4,b8 implies b5,b7 // b6,b8 ) )
Lemma2:
for b1 being AffinPlane holds
( b1 satisfies_TDES iff for b2 being Element of b1
for b3 being Subset of b1
for b4, b5, b6, b7, b8, b9 being Element of b1 holds
( b2 in b3 & b4 in b3 & b5 in b3 & b3 is_line & LIN b2,b6,b8 & LIN b2,b7,b9 & not b6 in b3 & b6,b7 // b3 & b8,b9 // b3 & b6,b4 // b8,b5 implies b7,b4 // b9,b5 ) )
Lemma3:
for b1 being AffinPlane holds
( b1 satisfies_TDES implies for b2 being Subset of b1
for b3, b4, b5, b6, b7, b8, b9 being Element of b1 holds
( b2 is_line & b3 in b2 & b6 in b2 & b9 in b2 & not b4 in b2 & b4 <> b5 & LIN b3,b4,b7 & b4,b5 // b7,b8 & b5,b6 // b8,b9 & b4,b6 // b7,b9 & b4,b5 // b2 implies LIN b3,b5,b8 ) )
Lemma4:
for b1 being AffinPlane holds
( b1 satisfies_TDES implies for b2, b3, b4 being Subset of b1
for b5, b6, b7, b8, b9, b10 being Element of b1 holds
( b2 // b3 & b2 // b4 & b2 <> b3 & b2 <> b4 & b5 in b2 & b6 in b2 & b7 in b3 & b8 in b3 & b9 in b4 & b10 in b4 & b5,b7 // b6,b8 & b5,b9 // b6,b10 implies b7,b9 // b8,b10 ) )
theorem Th1: :: HOMOTHET:1
for b
1 being
AffinPlanefor b
2, b
3, b
4, b
5, b
6, b
7, b
8, b
9, b
10 being
Element of b
1 holds
( not
LIN b
2,b
3,b
4 &
LIN b
2,b
3,b
5 &
LIN b
2,b
3,b
6 &
LIN b
2,b
3,b
7 &
LIN b
2,b
4,b
8 &
LIN b
2,b
4,b
9 &
LIN b
2,b
4,b
10 & b
4 <> b
9 & b
3 <> b
6 & b
2 <> b
9 & b
2 <> b
6 & b
3,b
4 // b
5,b
8 & b
3,b
9 // b
5,b
10 & b
6,b
4 // b
7,b
8 & b
1 satisfies_DES implies b
6,b
9 // b
7,b
10 )
theorem Th2: :: HOMOTHET:2
Lemma7:
for b1 being AffinPlane
for b2, b3, b4, b5, b6 being Element of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & LIN b2,b3,b5 & ( ( not LIN b2,b3,b6 & LIN b2,b6,b5 & b3,b6 // b4,b5 ) or ( LIN b2,b3,b6 & ex b7, b8 being Element of b1 st
( not LIN b2,b3,b7 & LIN b2,b7,b8 & b3,b7 // b4,b8 & b7,b6 // b8,b5 & LIN b2,b3,b5 ) ) ) implies LIN b2,b3,b6 )
Lemma8:
for b1 being AffinPlane
for b2, b3, b4, b5, b6 being Element of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & ( ( not LIN b2,b3,b5 & LIN b2,b5,b6 & b3,b5 // b4,b6 ) or ( LIN b2,b3,b5 & ex b7, b8 being Element of b1 st
( not LIN b2,b3,b7 & LIN b2,b7,b8 & b3,b7 // b4,b8 & b7,b5 // b8,b6 & LIN b2,b3,b6 ) ) ) implies ( b2 <> b4 & b2 <> b3 & LIN b2,b4,b3 & ( ( not LIN b2,b4,b6 & LIN b2,b6,b5 & b4,b6 // b3,b5 ) or ( LIN b2,b4,b6 & ex b7, b8 being Element of b1 st
( not LIN b2,b4,b7 & LIN b2,b7,b8 & b4,b7 // b3,b8 & b7,b6 // b8,b5 & LIN b2,b4,b5 ) ) ) ) )
Lemma9:
for b1 being AffinPlane
for b2, b3, b4, b5, b6 being Element of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & b5 = b2 & ( ( not LIN b2,b3,b5 & LIN b2,b5,b6 & b3,b5 // b4,b6 ) or ( LIN b2,b3,b5 & ex b7, b8 being Element of b1 st
( not LIN b2,b3,b7 & LIN b2,b7,b8 & b3,b7 // b4,b8 & b7,b5 // b8,b6 & LIN b2,b3,b6 ) ) ) implies b6 = b2 )
Lemma10:
for b1 being AffinPlane
for b2, b3, b4, b5 being Element of b1 holds
not ( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & ( for b6 being Element of b1 holds
( not ( not LIN b2,b3,b5 & LIN b2,b5,b6 & b3,b5 // b4,b6 ) & not ( LIN b2,b3,b5 & ex b7, b8 being Element of b1 st
( not LIN b2,b3,b7 & LIN b2,b7,b8 & b3,b7 // b4,b8 & b7,b5 // b8,b6 & LIN b2,b3,b6 ) ) ) ) )
Lemma11:
for b1 being AffinPlane
for b2, b3, b4, b5 being Element of b1 holds
not ( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & ( for b6 being Element of b1 holds
( not ( not LIN b2,b3,b6 & LIN b2,b6,b5 & b3,b6 // b4,b5 ) & not ( LIN b2,b3,b6 & ex b7, b8 being Element of b1 st
( not LIN b2,b3,b7 & LIN b2,b7,b8 & b3,b7 // b4,b8 & b7,b6 // b8,b5 & LIN b2,b3,b5 ) ) ) ) )
Lemma12:
for b1 being AffinPlane
for b2, b3, b4, b5, b6 being Element of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & b3 = b4 & ( ( not LIN b2,b3,b5 & LIN b2,b5,b6 & b3,b5 // b4,b6 ) or ( LIN b2,b3,b5 & ex b7, b8 being Element of b1 st
( not LIN b2,b3,b7 & LIN b2,b7,b8 & b3,b7 // b4,b8 & b7,b5 // b8,b6 & LIN b2,b3,b6 ) ) ) implies b5 = b6 )
Lemma13:
for b1 being AffinPlane
for b2, b3, b4, b5, b6, b7 being Element of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & b1 satisfies_DES & LIN b2,b3,b5 & ex b8, b9 being Element of b1 st
( not LIN b2,b3,b8 & LIN b2,b8,b9 & b3,b8 // b4,b9 & b8,b5 // b9,b6 & LIN b2,b3,b6 ) & ex b8, b9 being Element of b1 st
( not LIN b2,b3,b8 & LIN b2,b8,b9 & b3,b8 // b4,b9 & b8,b5 // b9,b7 & LIN b2,b3,b7 ) implies b6 = b7 )
Lemma14:
for b1 being AffinPlane
for b2, b3, b4, b5, b6, b7 being Element of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & b1 satisfies_DES & ( ( not LIN b2,b3,b5 & LIN b2,b5,b6 & b3,b5 // b4,b6 ) or ( LIN b2,b3,b5 & ex b8, b9 being Element of b1 st
( not LIN b2,b3,b8 & LIN b2,b8,b9 & b3,b8 // b4,b9 & b8,b5 // b9,b6 & LIN b2,b3,b6 ) ) ) & ( ( not LIN b2,b3,b7 & LIN b2,b7,b6 & b3,b7 // b4,b6 ) or ( LIN b2,b3,b7 & ex b8, b9 being Element of b1 st
( not LIN b2,b3,b8 & LIN b2,b8,b9 & b3,b8 // b4,b9 & b8,b7 // b9,b6 & LIN b2,b3,b6 ) ) ) implies b5 = b7 )
Lemma15:
for b1 being AffinPlane
for b2, b3, b4 being Element of b1 holds
not ( b1 satisfies_DES & b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & ( for b5 being Permutation of the carrier of b1 holds
not for b6, b7 being Element of b1 holds
( b5 . b6 = b7 iff ( ( not LIN b2,b3,b6 & LIN b2,b6,b7 & b3,b6 // b4,b7 ) or ( LIN b2,b3,b6 & ex b8, b9 being Element of b1 st
( not LIN b2,b3,b8 & LIN b2,b8,b9 & b3,b8 // b4,b9 & b8,b6 // b9,b7 & LIN b2,b3,b7 ) ) ) ) ) )
Lemma16:
for b1 being AffinPlane
for b2, b3, b4, b5, b6, b7, b8 being Element of b1 holds
( b1 satisfies_DES & b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & not LIN b2,b3,b5 & LIN b2,b5,b6 & b3,b5 // b4,b6 & LIN b2,b3,b7 & ex b9, b10 being Element of b1 st
( not LIN b2,b3,b9 & LIN b2,b9,b10 & b3,b9 // b4,b10 & b9,b7 // b10,b8 & LIN b2,b3,b8 ) implies b5,b7 // b6,b8 )
Lemma17:
for b1 being AffinPlane
for b2, b3, b4, b5, b6, b7, b8 being Element of b1 holds
( b1 satisfies_DES & b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & LIN b2,b3,b5 & ex b9, b10 being Element of b1 st
( not LIN b2,b3,b9 & LIN b2,b9,b10 & b3,b9 // b4,b10 & b9,b5 // b10,b6 & LIN b2,b3,b6 ) & not LIN b2,b3,b7 & LIN b2,b7,b8 & b3,b7 // b4,b8 implies b5,b7 // b6,b8 )
Lemma18:
for b1 being AffinPlane
for b2, b3, b4, b5, b6, b7, b8 being Element of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & LIN b2,b3,b5 & ex b9, b10 being Element of b1 st
( not LIN b2,b3,b9 & LIN b2,b9,b10 & b3,b9 // b4,b10 & b9,b5 // b10,b6 & LIN b2,b3,b6 ) & LIN b2,b3,b7 & ex b9, b10 being Element of b1 st
( not LIN b2,b3,b9 & LIN b2,b9,b10 & b3,b9 // b4,b10 & b9,b7 // b10,b8 & LIN b2,b3,b8 ) implies b5,b7 // b6,b8 )
Lemma19:
for b1 being AffinPlane
for b2, b3, b4 being Element of b1
for b5 being Permutation of the carrier of b1 holds
( b2 <> b3 & b2 <> b4 & LIN b2,b3,b4 & b1 satisfies_DES & ( for b6, b7 being Element of b1 holds
( b5 . b6 = b7 iff ( ( not LIN b2,b3,b6 & LIN b2,b6,b7 & b3,b6 // b4,b7 ) or ( LIN b2,b3,b6 & ex b8, b9 being Element of b1 st
( not LIN b2,b3,b8 & LIN b2,b8,b9 & b3,b8 // b4,b9 & b8,b6 // b9,b7 & LIN b2,b3,b7 ) ) ) ) ) implies ( b5 is_Dil & b5 . b2 = b2 & b5 . b3 = b4 ) )
theorem Th3: :: HOMOTHET:3
theorem Th4: :: HOMOTHET:4
:: deftheorem Def1 defines is_Sc HOMOTHET:def 1 :
theorem Th5: :: HOMOTHET:5
theorem Th6: :: HOMOTHET:6
Lemma24:
for b1 being AffinPlane
for b2, b3, b4, b5 being Element of b1
for b6 being Subset of b1 holds
( b2,b3 // b6 & not b2 in b6 & ( ( b4 in b6 & b4 = b5 ) or ( not b4 in b6 & ex b7, b8 being Element of b1 st
( b7 in b6 & b8 in b6 & b7,b2 // b8,b4 & b7,b3 // b8,b5 & b4,b5 // b6 ) ) ) implies ( b3,b2 // b6 & not b3 in b6 & ( ( b5 in b6 & b5 = b4 ) or ( not b5 in b6 & ex b7, b8 being Element of b1 st
( b7 in b6 & b8 in b6 & b7,b3 // b8,b5 & b7,b2 // b8,b4 & b5,b4 // b6 ) ) ) ) )
Lemma25:
for b1 being AffinPlane
for b2, b3 being Element of b1
for b4 being Subset of b1 holds
( b2,b3 // b4 & not b2 in b4 implies for b5 being Element of b1 holds
not for b6 being Element of b1 holds
( not ( b5 in b4 & b5 = b6 ) & not ( not b5 in b4 & ex b7, b8 being Element of b1 st
( b7 in b4 & b8 in b4 & b7,b2 // b8,b5 & b7,b3 // b8,b6 & b5,b6 // b4 ) ) ) )
Lemma26:
for b1 being AffinPlane
for b2, b3 being Element of b1
for b4 being Subset of b1 holds
( b2,b3 // b4 & not b2 in b4 implies for b5 being Element of b1 holds
not for b6 being Element of b1 holds
( not ( b6 in b4 & b6 = b5 ) & not ( not b6 in b4 & ex b7, b8 being Element of b1 st
( b7 in b4 & b8 in b4 & b7,b2 // b8,b6 & b7,b3 // b8,b5 & b6,b5 // b4 ) ) ) )
theorem Th7: :: HOMOTHET:7
for b
1 being
AffinPlanefor b
2, b
3, b
4, b
5, b
6, b
7, b
8, b
9 being
Element of b
1for b
10, b
11 being
Subset of b
1 holds
( b
10 // b
11 & b
2 in b
10 & b
3 in b
10 & b
4 in b
10 & b
5 in b
10 & b
1 satisfies_TDES & b
6 in b
11 & b
7 in b
11 & b
8 in b
11 & b
9 in b
11 & b
6 <> b
7 & b
3 <> b
2 & b
2,b
6 // b
4,b
8 & b
2,b
7 // b
4,b
9 & b
3,b
6 // b
5,b
8 implies b
3,b
7 // b
5,b
9 )
Lemma28:
for b1 being AffinPlane
for b2, b3, b4, b5, b6, b7, b8, b9 being Element of b1
for b10 being Subset of b1 holds
( b2,b3 // b10 & not b2 in b10 & not b4 in b10 & b1 satisfies_TDES & b5 in b10 & b6 in b10 & b5,b2 // b6,b4 & b5,b3 // b6,b7 & b4,b7 // b10 & b8 in b10 & b9 in b10 & b8,b2 // b9,b4 implies b8,b3 // b9,b7 )
Lemma29:
for b1 being AffinPlane
for b2, b3, b4, b5, b6, b7, b8, b9, b10 being Element of b1
for b11 being Subset of b1 holds
( b2,b3 // b11 & not b2 in b11 & not b4 in b11 & b1 satisfies_TDES & b5 in b11 & b6 in b11 & b5,b2 // b6,b4 & b5,b3 // b6,b7 & b4,b7 // b11 & b8 in b11 & b9 in b11 & b8,b2 // b9,b4 & b4,b10 // b11 & b8,b3 // b9,b10 implies b10 = b7 )
Lemma30:
for b1 being AffinPlane
for b2, b3, b4, b5, b6 being Element of b1
for b7 being Subset of b1 holds
( b2,b3 // b7 & not b2 in b7 & b1 satisfies_TDES & ( ( b4 in b7 & b4 = b5 ) or ( not b4 in b7 & ex b8, b9 being Element of b1 st
( b8 in b7 & b9 in b7 & b8,b2 // b9,b4 & b8,b3 // b9,b5 & b4,b5 // b7 ) ) ) & ( ( b6 in b7 & b6 = b5 ) or ( not b6 in b7 & ex b8, b9 being Element of b1 st
( b8 in b7 & b9 in b7 & b8,b2 // b9,b6 & b8,b3 // b9,b5 & b6,b5 // b7 ) ) ) implies b4 = b6 )
Lemma31:
for b1 being AffinPlane
for b2, b3 being Element of b1
for b4 being Subset of b1 holds
not ( b2,b3 // b4 & not b2 in b4 & b1 satisfies_TDES & ( for b5 being Permutation of the carrier of b1 holds
not for b6, b7 being Element of b1 holds
( b5 . b6 = b7 iff ( ( b6 in b4 & b6 = b7 ) or ( not b6 in b4 & ex b8, b9 being Element of b1 st
( b8 in b4 & b9 in b4 & b8,b2 // b9,b6 & b8,b3 // b9,b7 & b6,b7 // b4 ) ) ) ) ) )
Lemma32:
for b1 being AffinPlane
for b2, b3 being Element of b1
for b4 being Subset of b1
for b5 being Permutation of the carrier of b1 holds
( b2,b3 // b4 & not b2 in b4 & ( for b6, b7 being Element of b1 holds
( b5 . b6 = b7 iff ( ( b6 in b4 & b6 = b7 ) or ( not b6 in b4 & ex b8, b9 being Element of b1 st
( b8 in b4 & b9 in b4 & b8,b2 // b9,b6 & b8,b3 // b9,b7 & b6,b7 // b4 ) ) ) ) ) implies b5 . b2 = b3 )
Lemma33:
for b1 being AffinPlane
for b2, b3 being Element of b1
for b4 being Subset of b1
for b5 being Permutation of the carrier of b1 holds
( b2,b3 // b4 & not b2 in b4 & ( for b6, b7 being Element of b1 holds
( b5 . b6 = b7 iff ( ( b6 in b4 & b6 = b7 ) or ( not b6 in b4 & ex b8, b9 being Element of b1 st
( b8 in b4 & b9 in b4 & b8,b2 // b9,b6 & b8,b3 // b9,b7 & b6,b7 // b4 ) ) ) ) ) implies for b6 being Element of b1 holds b6,b5 . b6 // b4 )
Lemma34:
for b1 being AffinPlane
for b2, b3 being Element of b1
for b4 being Subset of b1
for b5 being Permutation of the carrier of b1 holds
( b2,b3 // b4 & not b2 in b4 & b1 satisfies_TDES & ( for b6, b7 being Element of b1 holds
( b5 . b6 = b7 iff ( ( b6 in b4 & b6 = b7 ) or ( not b6 in b4 & ex b8, b9 being Element of b1 st
( b8 in b4 & b9 in b4 & b8,b2 // b9,b6 & b8,b3 // b9,b7 & b6,b7 // b4 ) ) ) ) ) implies b5 is_Col )
Lemma35:
for b1 being AffinPlane
for b2, b3 being Element of b1
for b4 being Subset of b1
for b5 being Permutation of the carrier of b1 holds
( b2,b3 // b4 & not b2 in b4 & b1 satisfies_TDES & ( for b6, b7 being Element of b1 holds
( b5 . b6 = b7 iff ( ( b6 in b4 & b6 = b7 ) or ( not b6 in b4 & ex b8, b9 being Element of b1 st
( b8 in b4 & b9 in b4 & b8,b2 // b9,b6 & b8,b3 // b9,b7 & b6,b7 // b4 ) ) ) ) ) implies b5 is_Sc b4 )
theorem Th8: :: HOMOTHET:8
theorem Th9: :: HOMOTHET:9