fact: Definition fold_num T (f: num -> T -> T) := Prect (fun _ => T -> T) (fun acc => acc) (fun a aux acc => aux (f a acc)).
imports: ATBR(Common) ATBR(BoolView) ATBR(MyFSets MyFSetProperties MyFMapProperties) Coq(FSetPositive FMapPositive)