fact: Definition parse_nest_aux : forall l: list par, (forall l':list par, length l' < length l -> {l'': list par & {t:bin | parse_rel l' l'' t /\ length l'' <= length l'}}+{forall l'' t, ~parse_rel l' l'' t}) -> {l'': list par & { t: bin | parse_rel l l'' t /\ length l'' <= length l}}+{forall l'' t, ~parse_rel l l'' t}.
imports: Arith Lia List Wellfounded parsing