let F1, F2, L be Field; :: thesis: for E1 being FieldExtension of F1
for K1 being b₁ -extending FieldExtension of F1
for h1 being Function of F1,L
for h2 being Function of E1,L
for h3 being Function of K1,L st h2 is h1 -extending & h3 is h2 -extending holds
h3 is h1 -extending
let E1 be FieldExtension of F1; :: thesis: for K1 being E1 -extending FieldExtension of F1
for h1 being Function of F1,L
for h2 being Function of E1,L
for h3 being Function of K1,L st h2 is h1 -extending & h3 is h2 -extending holds
h3 is h1 -extending
let K1 be E1 -extending FieldExtension of F1; :: thesis: for h1 being Function of F1,L
for h2 being Function of E1,L
for h3 being Function of K1,L st h2 is h1 -extending & h3 is h2 -extending holds
h3 is h1 -extending
let h1 be Function of F1,L; :: thesis: for h2 being Function of E1,L
for h3 being Function of K1,L st h2 is h1 -extending & h3 is h2 -extending holds
h3 is h1 -extending
let h2 be Function of E1,L; :: thesis: for h3 being Function of K1,L st h2 is h1 -extending & h3 is h2 -extending holds
h3 is h1 -extending
let h3 be Function of K1,L; :: thesis: ( h2 is h1 -extending & h3 is h2 -extending implies h3 is h1 -extending )
assume AS: ( h2 is h1 -extending & h3 is h2 -extending ) ; :: thesis: h3 is h1 -extending

now :: thesis: for a being Element of F1 holds h3 . a = h1 . a

let a be Element of F1; :: thesis: h3 . a = h1 . a
thus h3 . a = h3 . (@ (a,E1)) by FIELD_7:def 4
.= h2 . (@ (a,E1)) by AS
.= h2 . a by FIELD_7:def 4
.= h1 . a by AS ; :: thesis: verum

end;

hence h3 is h1 -extending ; :: thesis: verum