reconsider IT = BCI_S-EXAMPLE as BCK-Algebra_with_Condition(S) ;
IT is implicative by STRUCT_0:def 10;
hence ex b1 being BCK-Algebra_with_Condition(S) st b1 is implicative ; :: thesis: verum