proposition: Lemma unroll_LeastFixedPoint' {fDom : list Type} {fCod : Type} (fDef : funType fDom fCod -> funType fDom fCod) (fDef_monotone : monotonic_function fDef) : refineFun (LeastFixedPoint fDef) (fDef (LeastFixedPoint fDef)).
proof: Proof. eapply (Is_GreatestFixedPoint fDef fDef_monotone). Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Sets.Ensembles Coq.ZArith.ZArith Coq.Classes.Morphisms Coq.Classes.SetoidTactics Fiat.Computation Fiat.Computation.SetoidMorphisms Coq.Logic.FunctionalExtensionality