fact: Definition set_resolve (s:t) pos (r:resolution) : t := let len := PArray.length r in if len =? 0 then s else let c := foldi (fun i c' => (C.resolve (get s (r.[i])) c')) 1 len (get s (r.[0])) in internal_set s pos c.
imports: List Bool Int63 Psatz Ring63 PArray Misc Ring