DEFINITION clear_cle()
TYPE =
       ∀c1:C.∀c2:C.(clear c1 c2)→(cle c2 c1)
BODY =
Show proof