 reserve K,F,E for Field,
         R,S for Ring;

theorem
   for a be Element of S holds
   S is RingExtension of R implies Ext_eval(0_.(R),a) = 0.S by ALGNUM_1:13;
