fact: Definition fib_log : forall (x : nat), ({u : nat & {v : nat | u = fib x /\ v = fib (S x)}}) := well_founded_induction lt_wf (fun x => {u : nat & {v : nat | u = fib x /\ v = fib (S x)}}) fib_log_F.
imports: Arith ArithRing Wf_nat fib_ind fib_positive Lia