fact: Definition option_map : forall (A A' : Type) (AR : Param10.Rel A A'), option A -> option A' := fun A A' AR => fun oa => match oa in option _ return option A' with | Some a => Some (map AR a) | None => None end.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions Hierarchy