-- -*- M2-comint -*- hash: 4494655455816396741

i1 : P5 = QQ[a..f];

i2 : P2 = QQ[x,y,z];

i3 : M = matrix{{a,b,c},{d,e,f}};

              2       3
o3 : Matrix P5  <-- P5

i4 : blowUpSubvar = P5/(minors(2, M) + ideal(b - d));

i5 : f = map(blowUpSubvar, P2, {a, b, c});

o5 : RingMap blowUpSubvar <-- P2

i6 : isRegularMap(f)

o6 = true

i7 : 
