DEFINITION clear_gen_sort()
TYPE =
       x:C.n:nat.(clear (CSort n) x)P:Prop.P
BODY =
Show proof