fact: Fixpoint check_range' (v:Z)(r:nat){struct r} : bool := match r with 0 => true | 1 => true | S r' => match (v mod Z_of_nat r)%Z with | 0%Z => false | _ => check_range' v r' end end.
imports: ZArith List Arith Lia Zwf Relations Inverse_Image Transitive_Closure Zdiv