fact: Definition greatest_fixpoint_step (greatest_fixpoint : nat -> A -> A) (sz : nat) (a : A) : A := match sz with | 0 => a | S sz' => let a' := step a in let sza := sizeof a in let sza' := sizeof a' in if leb (S sza') sza then greatest_fixpoint sz' a' else a end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Arith.EqNat Coq.Arith.Compare_dec Coq.ZArith.ZArith Coq.Lists.List Fiat.Common.List.ListFacts Fiat.Common