fact: Fixpoint Acc_RA_of_opt B (f : B -> option A) b v (Heq : f b = Some v) (ac : Acc RA v) {struct ac} : Acc (fun x y => match f x, f y with | Some fx, Some fy => RA fx fy | _, _ => False end) b.
imports: Coq.Setoids.Setoid Coq.Program.Program Coq.Program.Wf Coq.Arith.Wf_nat Coq.Classes.Morphisms Coq.Init.Wf Coq.Lists.SetoidList Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat