fact: Definition lift_relation_hetero_iff {A B} R defaultA defaultB (m1 : t A) (m2 : t B) : lift_relation_hetero R defaultA defaultB m1 m2 <-> forall k, match find k m1, find k m2 with | Some x1, Some x2 => R x1 x2 | Some x, None => R x defaultB | None, Some x => R defaultA x | None, None => True end := lift_relation_gen_hetero_iff and True (fun x => x) R defaultA defaultB m1 m2 (or_introl I) (fun x y => reflexivity _).
imports: Coq.FSets.FMapInterface Coq.FSets.FMapFacts Coq.Program.Program Coq.Structures.OrderedTypeEx Fiat.Common Fiat.Common.SetEq Fiat.Common.SetEqProperties Fiat.Common.List.ListFacts Fiat.Common.List.ListMorphisms Fiat.Common.LogicFacts Fiat.Common.SetoidClassInstances