reserve x,y,z for set;
reserve Q for left-distributive right-distributive complete Lattice-like non
  empty QuantaleStr,
  a, b, c, d for Element of Q;
reserve Q for Quantale,
  a,a9,b,b9,c,d,d1,d2,D for Element of Q;
reserve Q for Girard-Quantale,
  a,a1,a2,b,b1,b2,c,d for Element of Q,
  X for set;

theorem Th32:
  a [*] Top Q = a & Top Q [*] a = a
proof
  the absurd of Q is dualizing by Def20;
  then
A1: Top Q = the_unity_wrt times(Q) by Th19;
  times(Q) is having_a_unity by MONOID_0:def 10;
  hence thesis by A1,SETWISEO:15;
end;
