DEFINITION getl_gen_O()
TYPE =
       e:C.x:C.(getl O e x)(clear e x)
BODY =
Show proof