End PCoreProps.
Section MorphPcore.
Implicit Types (pi : nat_pred) (gT rT : finGroupType).

(* Specifications: *)
Lemma morphim_pcore pi : GFunctor.pcontinuous (@pcore pi).
Lemma pcoreS pi gT (G H : {group gT}) :
H \subset G -> H :&: 'O_pi(G) \subset 'O_pi(H).