reserve X for BCK-algebra;
reserve x,y for Element of X;
reserve IT for non empty Subset of X;

theorem
  for X being bounded commutative BCK-algebra,a being Element of X st a
  is being_greatest holds (X is BCK-implicative iff for x being Element of X
  holds x\(a\x) = x )
proof
  let X be bounded commutative BCK-algebra;
  let a be Element of X;
  assume
A1: a is being_greatest;
  thus X is BCK-implicative implies for x being Element of X holds x\(a\x) = x;
  assume
A2: for x being Element of X holds x\(a\x) = x;
  for x,y being Element of X holds x\(y\x)=x
  proof
    let x,y be Element of X;
A3: (x\(a\x))\x = (x\x)\(a\x) by BCIALG_1:7
      .= (a\x)` by BCIALG_1:def 5
      .= 0.X by BCIALG_1:def 8;
    y\a = 0.X by A1;
    then y<=a;
    then y\x <= a\x by BCIALG_1:5;
    then
A4: x\(a\x) <= x\(y\x) by BCIALG_1:5;
    x\(x\(a\x)) = x\x by A2
      .= 0.X by BCIALG_1:def 5;
    then x\(a\x) = x by A3,BCIALG_1:def 7;
    then
A5: x\(x\(y\x)) = 0.X by A4;
    (x\(y\x))\x = (x\x)\(y\x) by BCIALG_1:7
      .= (y\x)` by BCIALG_1:def 5
      .= 0.X by BCIALG_1:def 8;
    hence thesis by A5,BCIALG_1:def 7;
  end;
  hence thesis;
end;
