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