Definition kHom_rmorphism K E f homKEf :=
  RMorphism (@kHom_is_rmorphism K E f homKEf).Definition kHomExtend := linfun (Linear kHomExtend_subproof).Local Notation Px := (minPoly E x).

(* Specifications: *)
Lemma kHomExtend_val : kHomExtend x = y.
Lemma kAutS U1 U2 V f : (U1 <= U2)%VS -> kAut U2 V f -> kAut U1 V f.
Lemma kHom_kAut_sub K E f : kAut K E f -> kHom K E f.