theorem
  i,i are_equivalence_wrt FI & a,a are_equivalence_wrt FB
proof
A1: a => a = Top B by Th28;
  i => i = Top I & Top I"/\"Top I = Top I by Th28;
  hence i <=> i in FI & a <=> a in FB by A1,Th11;
end;
