fact: Definition R_in_map_nat : forall {n n' : nat}, natR n n' -> map_nat n = n' := fix F n n' (nR : natR n n') : map_nat n = n' := match nR with | OR => idpath | SR m m' mR => ap S (F m m' mR) end.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions Hierarchy