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