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;

theorem Th12:
  a [*] b [= c iff a [= b -r> c
proof
  set X = {d: d [*] b [= c};
  X c= carr(Q)
  proof
    let x be object;
    assume x in X;
    then ex d st x = d & d [*] b [= c;
    hence thesis;
  end;
  then reconsider X as Subset of Q;
  thus a [*] b [= c implies a [= b -r> c
  proof
    assume a [*] b [= c;
    then a in X;
    hence thesis by LATTICE3:38;
  end;
  deffunc F(Element of Q) = $1 [*] b;
  defpred P1[set] means $1 in X;
  defpred P2[Element of Q] means $1 [*] b [= c;
  assume a [= b -r> c;
  then
A1: a [*] b [= ("\/"X) [*] b by Th8;
  now
    let d;
    assume d in X;
    then ex d1 st d = d1 & d1 [*] b [= c;
    hence d [*] b [= c;
  end;
  then
A2: P1[d] iff P2[d];
A3: {F(d1): P1[d1]} = {F(d2): P2[d2]} from FRAENKEL:sch 3(A2);
A4: {d [*] b: d in X} is_less_than c
  proof
    let d1;
    assume d1 in {d [*] b: d in X};
    then ex d2 st d1 = d2 [*] b & d2 [*] b [= c by A3;
    hence thesis;
  end;
  ("\/"X) [*] b = "\/"({d [*] b: d in X}, Q) by Def6;
  then ("\/"X) [*] b [= c by A4,LATTICE3:def 21;
  hence thesis by A1,LATTICES:7;
end;
