module Test(g) where

data B = TT | FF

g y0 y1 y2 y3 y4 FF FF FF FF FF = TT
g TT y1 y2 y3 y4 TT x1 x2 x3 x4 = TT
g FF y1 y2 y3 y4 TT x1 x2 x3 x4 = TT
g y0 TT y2 y3 y4 x0 TT x2 x3 x4 = TT
g y0 FF y2 y3 y4 x0 TT x2 x3 x4 = TT
g y0 y1 TT y3 y4 x0 x1 TT x3 x4 = TT
g y0 y1 FF y3 y4 x0 x1 TT x3 x4 = TT
g y0 y1 y2 TT y4 x0 x1 x2 TT x4 = TT
g y0 y1 y2 FF y4 x0 x1 x2 TT x4 = TT
g y0 y1 y2 y3 TT x0 x1 x2 x3 TT = TT
g y0 y1 y2 y3 FF x0 x1 x2 x3 TT = TT