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' = < 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