let B be B_Lattice; :: thesis: for a, b, c being Element of B st a <=> b = a <=> c holds
b = c
let a, b, c be Element of B; :: thesis: ( a <=> b = a <=> c implies b = c )
set ab = a "/\" b;
set ac = a "/\" c;
set bc = b "/\" c;
set b9c9 = (b ` ) "/\" (c ` );
set a9b9 = (a ` ) "/\" (b ` );
set a9c9 = (a ` ) "/\" (c ` );
set a9b = (a ` ) "/\" b;
set a9c = (a ` ) "/\" c;
set ab9 = a "/\" (b ` );
set ac9 = a "/\" (c ` );
A1: ( (a <=> b) <=> (a <=> c) = ((a <=> b) "/\" (a <=> c)) "\/" (((a <=> b) ` ) "/\" ((a <=> c) ` )) & a <=> b = (a "/\" b) "\/" ((a ` ) "/\" (b ` )) & a <=> c = (a "/\" c) "\/" ((a ` ) "/\" (c ` )) & (a <=> b) ` = (a "/\" (b ` )) "\/" ((a ` ) "/\" b) & (a <=> c) ` = (a "/\" (c ` )) "\/" ((a ` ) "/\" c) & ((a "/\" b) "\/" ((a ` ) "/\" (b ` ))) "/\" ((a "/\" c) "\/" ((a ` ) "/\" (c ` ))) = ((a "/\" b) "/\" ((a "/\" c) "\/" ((a ` ) "/\" (c ` )))) "\/" (((a ` ) "/\" (b ` )) "/\" ((a "/\" c) "\/" ((a ` ) "/\" (c ` )))) & (a "/\" b) "/\" ((a "/\" c) "\/" ((a ` ) "/\" (c ` ))) = ((a "/\" b) "/\" (a "/\" c)) "\/" ((a "/\" b) "/\" ((a ` ) "/\" (c ` ))) & (a "/\" b) "/\" ((a ` ) "/\" (c ` )) = ((a "/\" b) "/\" (a ` )) "/\" (c ` ) & ((a ` ) "/\" (b ` )) "/\" ((a "/\" c) "\/" ((a ` ) "/\" (c ` ))) = (((a ` ) "/\" (b ` )) "/\" (a "/\" c)) "\/" (((a ` ) "/\" (b ` )) "/\" ((a ` ) "/\" (c ` ))) & (b "/\" a) "/\" (a ` ) = b "/\" (a "/\" (a ` )) & b "/\" (Bottom B) = Bottom B & (b ` ) "/\" (Bottom B) = Bottom B & (Bottom B) "/\" c = Bottom B & (Bottom B) "/\" (c ` ) = Bottom B & a "/\" (a ` ) = Bottom B & (a ` ) "/\" a = Bottom B & a "/\" b = b "/\" a & (a ` ) "/\" (b ` ) = (b ` ) "/\" (a ` ) & ((a ` ) "/\" (b ` )) "/\" (a "/\" c) = (((a ` ) "/\" (b ` )) "/\" a) "/\" c & ((b ` ) "/\" (a ` )) "/\" a = (b ` ) "/\" ((a ` ) "/\" a) & ((a "/\" b) "/\" (a "/\" c)) "\/" (Bottom B) = (a "/\" b) "/\" (a "/\" c) & (Bottom B) "\/" (((a ` ) "/\" (b ` )) "/\" ((a ` ) "/\" (c ` ))) = ((a ` ) "/\" (b ` )) "/\" ((a ` ) "/\" (c ` )) & ((a "/\" (b ` )) "\/" ((a ` ) "/\" b)) "/\" ((a "/\" (c ` )) "\/" ((a ` ) "/\" c)) = ((a "/\" (b ` )) "/\" ((a "/\" (c ` )) "\/" ((a ` ) "/\" c))) "\/" (((a ` ) "/\" b) "/\" ((a "/\" (c ` )) "\/" ((a ` ) "/\" c))) & (a "/\" (b ` )) "/\" ((a "/\" (c ` )) "\/" ((a ` ) "/\" c)) = ((a "/\" (b ` )) "/\" (a "/\" (c ` ))) "\/" ((a "/\" (b ` )) "/\" ((a ` ) "/\" c)) & (a "/\" (b ` )) "/\" ((a ` ) "/\" c) = ((a "/\" (b ` )) "/\" (a ` )) "/\" c & ((a ` ) "/\" b) "/\" ((a "/\" (c ` )) "\/" ((a ` ) "/\" c)) = (((a ` ) "/\" b) "/\" (a "/\" (c ` ))) "\/" (((a ` ) "/\" b) "/\" ((a ` ) "/\" c)) & ((b ` ) "/\" a) "/\" (a ` ) = (b ` ) "/\" (a "/\" (a ` )) & (b ` ) "/\" (Bottom B) = Bottom B & b "/\" (Bottom B) = Bottom B & (Bottom B) "/\" (c ` ) = Bottom B & (Bottom B) "/\" c = Bottom B & a "/\" (a ` ) = Bottom B & (a ` ) "/\" a = Bottom B & a "/\" (b ` ) = (b ` ) "/\" a & (a ` ) "/\" b = b "/\" (a ` ) & ((a ` ) "/\" b) "/\" (a "/\" (c ` )) = (((a ` ) "/\" b) "/\" a) "/\" (c ` ) & (b "/\" (a ` )) "/\" a = b "/\" ((a ` ) "/\" a) & ((a "/\" (b ` )) "/\" (a "/\" (c ` ))) "\/" (Bottom B) = (a "/\" (b ` )) "/\" (a "/\" (c ` )) & (Bottom B) "\/" (((a ` ) "/\" b) "/\" ((a ` ) "/\" c)) = ((a ` ) "/\" b) "/\" ((a ` ) "/\" c) ) by Th51, Th52, LATTICES:39, LATTICES:40, LATTICES:47, LATTICES:def 7, LATTICES:def 11;
( (a "/\" b) "/\" (a "/\" c) = ((a "/\" b) "/\" a) "/\" c & (a "/\" b) "/\" a = a "/\" (a "/\" b) & a "/\" (a "/\" b) = (a "/\" a) "/\" b & a "/\" a = a & ((a ` ) "/\" (b ` )) "/\" ((a ` ) "/\" (c ` )) = (((a ` ) "/\" (b ` )) "/\" (a ` )) "/\" (c ` ) & ((a ` ) "/\" (b ` )) "/\" (a ` ) = (a ` ) "/\" ((a ` ) "/\" (b ` )) & (a ` ) "/\" ((a ` ) "/\" (b ` )) = ((a ` ) "/\" (a ` )) "/\" (b ` ) & (a ` ) "/\" (a ` ) = a ` & (a "/\" (b ` )) "/\" (a "/\" (c ` )) = ((a "/\" (b ` )) "/\" a) "/\" (c ` ) & (a "/\" (b ` )) "/\" a = a "/\" (a "/\" (b ` )) & (a "/\" b) "/\" c = a "/\" (b "/\" c) & a "/\" (a "/\" (b ` )) = (a "/\" a) "/\" (b ` ) & ((a ` ) "/\" b) "/\" ((a ` ) "/\" c) = (((a ` ) "/\" b) "/\" (a ` )) "/\" c & ((a ` ) "/\" b) "/\" (a ` ) = (a ` ) "/\" ((a ` ) "/\" b) & ((a ` ) "/\" b) "/\" c = (a ` ) "/\" (b "/\" c) & (a "/\" (b ` )) "/\" (c ` ) = a "/\" ((b ` ) "/\" (c ` )) & ((a ` ) "/\" (b ` )) "/\" (c ` ) = (a ` ) "/\" ((b ` ) "/\" (c ` )) & (a ` ) "/\" ((a ` ) "/\" b) = ((a ` ) "/\" (a ` )) "/\" b & ((a "/\" (b "/\" c)) "\/" ((a ` ) "/\" ((b ` ) "/\" (c ` )))) "\/" ((a "/\" ((b ` ) "/\" (c ` ))) "\/" ((a ` ) "/\" (b "/\" c))) = (((a "/\" (b "/\" c)) "\/" ((a ` ) "/\" ((b ` ) "/\" (c ` )))) "\/" (a "/\" ((b ` ) "/\" (c ` )))) "\/" ((a ` ) "/\" (b "/\" c)) & ((a "/\" (b "/\" c)) "\/" ((a ` ) "/\" ((b ` ) "/\" (c ` )))) "\/" (a "/\" ((b ` ) "/\" (c ` ))) = (a "/\" ((b ` ) "/\" (c ` ))) "\/" ((a "/\" (b "/\" c)) "\/" ((a ` ) "/\" ((b ` ) "/\" (c ` )))) & (a "/\" ((b ` ) "/\" (c ` ))) "\/" ((a "/\" (b "/\" c)) "\/" ((a ` ) "/\" ((b ` ) "/\" (c ` )))) = ((a "/\" ((b ` ) "/\" (c ` ))) "\/" (a "/\" (b "/\" c))) "\/" ((a ` ) "/\" ((b ` ) "/\" (c ` ))) & (a "/\" ((b ` ) "/\" (c ` ))) "\/" (a "/\" (b "/\" c)) = a "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c)) & ((b ` ) "/\" (c ` )) "\/" (b "/\" c) = (b "/\" c) "\/" ((b ` ) "/\" (c ` )) & ((a ` ) "/\" ((b ` ) "/\" (c ` ))) "\/" ((a ` ) "/\" (b "/\" c)) = (a ` ) "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c)) & (Top B) "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c)) = ((b ` ) "/\" (c ` )) "\/" (b "/\" c) & ((a "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c))) "\/" ((a ` ) "/\" ((b ` ) "/\" (c ` )))) "\/" ((a ` ) "/\" (b "/\" c)) = (a "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c))) "\/" (((a ` ) "/\" ((b ` ) "/\" (c ` ))) "\/" ((a ` ) "/\" (b "/\" c))) & a "\/" (a ` ) = Top B & (a "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c))) "\/" ((a ` ) "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c))) = (a "\/" (a ` )) "/\" (((b ` ) "/\" (c ` )) "\/" (b "/\" c)) ) by LATTICES:18, LATTICES:43, LATTICES:48, LATTICES:def 5, LATTICES:def 7, LATTICES:def 11;
then A51: (a <=> b) <=> (a <=> c) = b <=> c by A1, Th51;
A52: B is I_Lattice ;
assume A53: a <=> b = a <=> c ; :: thesis: b = c
then (a <=> b) => (a <=> c) = Top B by A52, FILTER_0:38;
then A55: b <=> c = Top B by A51, A53, LATTICES:18;
then A56: b "/\" (Top B) [= b "/\" (b => c) by LATTICES:23, LATTICES:27;
A57: c "/\" (Top B) [= c "/\" (c => b) by A55, LATTICES:23, LATTICES:27;
A58: b "/\" (b => c) [= c by A52, FILTER_0:def 8;
A59: c "/\" (c => b) [= b by A52, FILTER_0:def 8;
A60: b "/\" (Top B) = b by LATTICES:43;
A61: c "/\" (Top B) = c by LATTICES:43;
A62: b [= c by A56, A58, A60, LATTICES:25;
c [= b by A57, A59, A61, LATTICES:25;
hence b = c by A62, LATTICES:26; :: thesis: verum