fact: Record Has@{i} {A B : Type@{i}} (R : A -> B -> Type@{i}) := BuildHas { map : A -> B; map_in_R : forall (a : A) (b : B), map a = b -> R a b }.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions Database elpi(elpi)