fact: Definition loop n := powerfix n (fun loop rel todo => match todo with | [] => Some true | (e,f)::todo => if rel_mem (e,f) rel then loop rel todo else match ofold (loop_aux e f) A todo with | Some todo => loop (rel_insert (e,f) rel) todo | None => Some false end end ) (fun _ _ => None).
imports: lset kat positives sums glang boolean comparisons powerfix ugregex