DEFINITION csubc_clear_conf()
TYPE =
       ∀g:G.∀c1:C.∀e1:C.(clear c1 e1)→∀c2:C.(csubc g c1 c2)→(ex2 C λe2:C.clear c2 e2 λe2:C.csubc g e1 e2)
BODY =
Show proof