set L = ExNearLattice ;
for v2, v1, v0 being Element of ExNearLattice holds ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
proof
let v2, v1, v0 be Element of ExNearLattice; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
a1: v2 in {0,1,2} by LATWAL_1:def 10;
then A1: ( v2 = 2 or v2 = 1 or v2 = 0 ) by ENUMSET1:def 1;
a2: v1 in {0,1,2} by LATWAL_1:def 10;
then A2: ( v1 = 2 or v1 = 1 or v1 = 0 ) by ENUMSET1:def 1;
a3: v0 in {0,1,2} by LATWAL_1:def 10;
then A3: ( v0 = 2 or v0 = 1 or v0 = 0 ) by ENUMSET1:def 1;
reconsider a = v0, b = v1, c = v2 as Element of {0,1,2} by a1, a2, a3;
per cases ( ( v2 = 2 & v1 = 2 & v0 = 2 ) or ( v2 = 2 & v1 = 2 & v0 = 1 ) or ( v2 = 2 & v1 = 2 & v0 = 0 ) or ( v2 = 1 & v1 = 1 & v0 = 1 ) or ( v2 = 0 & v1 = 0 & v0 = 0 ) or ( v2 = 2 & v1 = 0 & v0 = 2 ) or ( v2 = 0 & v1 = 2 & v0 = 2 ) or ( v2 = 2 & v1 = 1 & v0 = 1 ) or ( v2 = 0 & v1 = 0 & v0 = 1 ) or ( v2 = 0 & v1 = 0 & v0 = 2 ) or ( v2 = 0 & v1 = 0 & v0 = 1 ) or ( v2 = 0 & v1 = 1 & v0 = 0 ) or ( v2 = 0 & v1 = 1 & v0 = 1 ) or ( v2 = 0 & v1 = 1 & v0 = 2 ) or ( v2 = 0 & v1 = 2 & v0 = 0 ) or ( v2 = 0 & v1 = 2 & v0 = 1 ) or ( v2 = 1 & v1 = 0 & v0 = 0 ) or ( v2 = 1 & v1 = 0 & v0 = 1 ) or ( v2 = 1 & v1 = 0 & v0 = 2 ) or ( v2 = 1 & v1 = 1 & v0 = 0 ) or ( v2 = 1 & v1 = 1 & v0 = 2 ) or ( v2 = 1 & v1 = 2 & v0 = 0 ) or ( v2 = 1 & v1 = 2 & v0 = 1 ) or ( v2 = 1 & v1 = 2 & v0 = 2 ) or ( v2 = 1 & v1 = 2 & v0 = 2 ) or ( v2 = 2 & v1 = 0 & v0 = 0 ) or ( v2 = 2 & v1 = 0 & v0 = 1 ) or ( v2 = 2 & v1 = 1 & v0 = 0 ) or ( v2 = 2 & v1 = 1 & v0 = 2 ) ) by A1, A2, A3;
suppose ( v2 = 2 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 ; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 2 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
v0 "\/" v1 = a ex123"\/" b by LATWAL_1:def 8, LATWAL_1:def 10
.= max (1,2) by B1, LATWAL_1:def 7
.= 2 by XXREAL_0:def 10 ;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 2 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
B3: v0 "/\" v1 = a ex123"/\" b by LATWAL_1:def 9, LATWAL_1:def 10
.= 2 by B1, LATWAL_1:def 6 ;
B2: v0 "\/" v1 = a ex123"\/" b by LATWAL_1:def 8, LATWAL_1:def 10
.= v0 by B1, LATWAL_1:def 7 ;
((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = 2 by B1, B3, B2
.= v1 by B1 ;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 ; :: thesis: verum
end;
suppose ( v2 = 1 & v1 = 1 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 ; :: thesis: verum
end;
suppose ( v2 = 0 & v1 = 0 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 ; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 0 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v2 "\/" v1 = 0 by PomocU02;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 2 ;
v2 "\/" v1 = 0 by B1, PomocU02;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 2 by B2, PomocL02;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 1 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 1 ;
v2 "\/" v1 = 2 by B1, PomocU21;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 1 by B2, PomocL12;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v0 "\/" v1 = 1 by PomocU10;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 0 by B1, PomocL10;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 0 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v0 "\/" v1 = 0 by PomocU20;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v0 "\/" v1 = 1 by PomocU10;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 0 by B1, PomocL10;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 1 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v0 "\/" v1 = 1 by PomocU01;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 1 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v2 "\/" v1 = 1 by PomocU01;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 1 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 2 by PomocU21;
v2 "\/" v1 = 1 by B1, PomocU01;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 1 by B2, PomocL21;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 2 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v2 "\/" v1 = 0 by PomocU02;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1, PomocL02; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 2 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 2 by PomocU12;
v2 "\/" v1 = 0 by B1, PomocU02;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 2 by B2, PomocL02;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 0 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 0 ;
v2 "\/" v1 = 1 by B1, PomocU10;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 0 by B2, PomocL01;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v2 "\/" v1 = 1 by PomocU10;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1, PomocL10; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 0 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 0 by PomocU20;
v2 "\/" v1 = 1 by B1, PomocU10;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 0 by B2, PomocL01;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 1 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v0 "\/" v1 = 1 by PomocU01;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 1 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 2 by PomocU21;
(v0 "\/" v1) "/\" (v2 "\/" v1) = 1 by B1, B2, PomocL21;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 0 by PomocU02;
v2 "\/" v1 = 2 by B1, PomocU12;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 2 by B2, PomocL02;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v0 "\/" v1 = 2 by PomocU12;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v2 "\/" v1 = 2 by PomocU12;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v2 "\/" v1 = 2 by PomocU12;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 0 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v2 "\/" v1 = 0 by PomocU20;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 1 by PomocU10;
v2 "\/" v1 = 0 by B1, PomocU20;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 0 by B2, PomocL01;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 1 & v0 = 0 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then B2: v0 "\/" v1 = 1 by PomocU01;
v2 "\/" v1 = 2 by B1, PomocU21;
then (v0 "\/" v1) "/\" (v2 "\/" v1) = 1 by B2, PomocL21;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 1 & v0 = 2 ) ; :: thesis: ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1
then v0 "\/" v1 = 2 by PomocU21;
hence ((v0 "\/" v1) "/\" (v2 "\/" v1)) "/\" v1 = v1 by B1, PomocL21; :: thesis: verum
end;
end;
end;
hence ExNearLattice is satisfying_W3 by LATWAL_1:def 1; :: thesis: verum