∀ {K : Type u_1} {L : Type u_2} [inst : Field K] [inst_1 : Field L] [inst_2 : Algebra K L] (f : L)
  (h : Transcendental K f) (g : Polynomial K),
  (RatFunc.algEquivOfTranscendental f h) ((algebraMap (Polynomial K) (RatFunc K)) g) =
    (Polynomial.aeval (IntermediateField.AdjoinSimple.gen K f)) g