theorem Th56:
  Top L is_a_unity_wrt the L_meet of L
proof
  now
    let u;
    thus (the L_meet of L).(Top L,u) = Top L"/\" u .= u;
  end;
  hence thesis by BINOP_1:4;
end;
