λf. ∀ x y z, (f (f x y) z) = (f x (f y z))

Definition associative : forall (A:Type), (A -> A -> A) -> Prop := fun (A:Type) => fun (f:(A -> A -> A)) => forall (x:A), forall (y:A), forall (z:A), logic.eq (A) (f (f x y) z) (f x (f y z))

definition associative : \forall A : Type[0] . (A -> A -> A) -> Prop := \lambda A : Type[0]. \lambda f : A -> A -> A. \forall (x:A). \forall (y:A). \forall (z:A). (eq) (A) (f (f x y) z) (f x (f y z))

def associative : forall (A : Type) , ((A) -> (A) -> A) -> Prop := fun (A : Type) , fun (f : (A) -> (A) -> A) , forall (x:A) , forall (y:A) , forall (z:A) , (((logic.eq_) (A)) (((f) (((f) (x)) (y))) (z))) (((f) (x)) (((f) (y)) (z)))

associative [A:TYPE+] : [[A -> [A -> A]] -> bool] = (LAMBDA(f:[A -> [A -> A]]):(FORALL(x:A):(FORALL(y:A):(FORALL(z:A):logic_sttfa_th.eq[A](f(f(x)(y))(z))(f(x)(f(y)(z)))))))

Printing for OpenTheory is not working at the moment.