fact: Definition log2_F: forall (n : nat), (forall (y : nat), y < n -> y <> 0 -> ({p : nat | exp2 p <= y /\ y < exp2 (p + 1)})) -> n <> 0 -> ({p : nat | exp2 p <= n /\ n < exp2 (p + 1)}).
imports: Arith ArithRing Lia fib_ind