1. T : Type
⊢ Assoc(Perm(T);λp,q. p O q)
{ (Unfold `assoc` 0 THEN AbReduce 0) }
1. T : Type
⊢ ∀[x,y,z:Perm(T)].  (x O y O z = x O y O z ∈ Perm(T))