-- -*- M2-comint -*- hash: 2849571170772194612

i1 : w = newForm("2*x_0*dx_0+x_1^2*dx_1")

               2
o1 = 2x dx  + x dx
       0  0    1  1

o1 : DiffAlgForm

i2 : homogenize w

                 2
o2 = 2x x dx  + x dx
       0 2  0    1  1

o2 : DiffAlgForm

i3 : homogenize newField ("ax_0+x_1*ax_2+a*ax_1")  

o3 = x ax  + a*x ax  + x ax
      3  0      3  1    1  2

o3 : DiffAlgField

i4 : 
