fromOrdinaryToGushel -- try to deform to a fourfold of Gushel type

i1 : X = specialGushelMukaiFourfold "quintic del Pezzo surface";

o1 : ProjectiveVariety, GM fourfold containing a surface of degree 5 and sectional genus 1

i2 : singularLocus ambientFivefold X

o2 = empty subscheme of PP^8

o2 : ProjectiveVariety, empty subscheme of PP^8

i3 : X' = fromOrdinaryToGushel X;

o3 : ProjectiveVariety, GM fourfold containing a surface of degree 5 and sectional genus 1

i4 : support singularLocus ambientFivefold X'

o4 = point of coordinates [1, 0, 0, 0, 0, 0, 0, 0, 0]

o4 : ProjectiveVariety, a point in PP^8