< SpecialGushelMukaiFourfold -- 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 grassmannianHull X

o2 = empty subscheme of PP^8

o2 : ProjectiveVariety, empty subscheme of PP^8

i3 : time X' = < X;
     -- used 2.75279 seconds

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

i4 : decompose singularLocus grassmannianHull X'

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

o4 : List