fact: Definition flatten_op_body (get_op:_lit -> option (array _lit)) (frec : list _lit -> _lit -> list _lit) (largs:list _lit) (l:_lit) : list _lit := match get_op l with | Some a => foldi (fun i x => frec x (a.[i])) 0 (length a) largs | None => l::largs end.
imports: List PArray Bool Int63 ZMicromega ZArith Misc State SMT_terms BVList