fact: Definition option_R_in_map : forall (A A' : Type) (AR : Param2b0.Rel A A') (oa : option A) (oa' : option A'), optionR A A' AR oa oa' -> option_map A A' AR oa = oa' := fun A A' AR => fun oa oa' oaR => match oaR in optionR _ _ _ oa oa' return option_map A A' AR oa = oa' with | @someR _ _ _ a a' aR => @transport A' (fun t => Some t = Some a') a' (map AR a) (R_in_map AR a a' aR)^ idpath | @noneR _ _ _ => idpath end.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions Hierarchy