fact: Definition loop_aux e f := fun a todo => if eqb_bool (epsilon' a e) (epsilon' a f) then Some (fold_right (fun i => cons (pderiv' a i e, pderiv' a i f)) todo I) else None.
imports: lset kat positives sums glang boolean comparisons powerfix ugregex