DEFINITION clear_clear()
TYPE =
       c1:C.c2:C.(clear c1 c2)(clear c2 c2)
BODY =
Show proof