fact: Definition lift_brelation_hetero_iff {A B} R defaultA defaultB (m1 : t A) (m2 : t B) : lift_brelation_hetero R defaultA defaultB m1 m2 <-> forall k, match find k m1, find k m2 return bool 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 andb true is_true R defaultA defaultB m1 m2 (or_introl (reflexivity _)) andb_true_iff.
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