= x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) 23 I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do i n g d e p e n d e n t t y p e s , t h e t y p e i t s e l f ge t s n o r m a l i s ed . S o i m agi n e w e w an t t o p r ov e t h e f ol l ow i n g t h e or e m ab ou t t h e r e d u c t i on b e h

= x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) 23 I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do i n g d e p e n d e n t t y p e s , t h e t y p e i t s e l f ge t s n o r m a l i s ed . S o i m agi n e w e w an t t o p r ov e t h e f ol l ow i n g t h e or e m ab ou t t h e r e d u c t i on b e h

t o ad d m or e u s e r s . Not i c e t h at u s e r l i s t p age w i l l au t om at i c al l y p agi n at e t h e u s e r e n t r i e s i f t h e r e ar e t oo m an y t o b e d i s p l ay e d i n on e u m n s . An d l i k e t h e u s e r l i s t p age , t h e ad m i n p age al s o p e r f or m s p agi n at i on w h e n t h e r e ar e t oo m an y u s e r e n t r i e s t o b e d i s p l ay e d i n on c r e at e s op h i s t i c at e d Yi i ap p l i c at i on s w i t h ou t w r i t i n g an d m an agi n g c om p l e x c on fi gu r at i on s . O f c ou r s e , Yi i c an s t i l l b e c u s t om i z e

p r i n t x b e c au s e head [] d oe s n ’ t t y p e c h e c k . How e v e r , w e m i gh t i m agi n e a f u n c t i on , unsafeHead, t h at i s i d e n t i c al t o I d r i s ’ head f u n c t i on y) = x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do

t o ad d m or e u s e r s . Not i c e t h at u s e r l i s t p age w i l l au t om at i c al l y p agi n at e t h e u s e r e n t r i e s i f t h e r e ar e t oo m an y t o b e d i s p l ay e d i n on e u m n s . An d l i k e t h e u s e r l i s t p age , t h e ad m i n p age al s o p e r f or m s p agi n at i on w h e n t h e r e ar e t oo m an y u s e r e n t r i e s t o b e d i s p l ay e d i n on c r e at e s op h i s t i c at e d Yi i ap p l i c at i on s w i t h ou t w r i t i n g an d m an agi n g c om p l e x c on fi gu r at i on s . O f c ou r s e , Yi i c an s t i l l b e c u s t om i z e

p r i n t x b e c au s e head [] d oe s n ’ t t y p e c h e c k . How e v e r , w e m i gh t i m agi n e a f u n c t i on , unsafeHead, t h at i s i d e n t i c al t o I d r i s ’ head f u n c t i on y) = x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do

y) = x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do i n g d e p e n d e n t t y p e s , t h e t y p e i t s e l f ge t s n o r m a l i s ed . S o i m agi n e w e w an t t o p r ov e t h e f ol l ow i n g t h e or e m ab ou t t h e r e d u c t i on b e h

y) = x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do i n g d e p e n d e n t t y p e s , t h e t y p e i t s e l f ge t s n o r m a l i s ed . S o i m agi n e w e w an t t o p r ov e t h e f ol l ow i n g t h e or e m ab ou t t h e r e d u c t i on b e h

y) = x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do i n g d e p e n d e n t t y p e s , t h e t y p e i t s e l f ge t s n o r m a l i s ed . S o i m agi n e w e w an t t o p r ov e t h e f ol l ow i n g t h e or e m ab ou t t h e r e d u c t i on b e h

y) = x == y Z == (S y) = False (S x) == Z = False x /= y = not (x == y) I t i s h ar d t o i m agi n e m an y c as e s w h e r e t h e /= m e t h od w i l l b e an y t h i n g ot h e r t h an t h e h av ai l ab l e , or r e t u r n Nothing i f on e or b ot h ar e n ot ( “f ai l f as t ”) . M an agi n g t h e Nothing c as e s i s ac h i e v e d b y t h e >>= op e r at or , h i d d e n b y t h e do i n g d e p e n d e n t t y p e s , t h e t y p e i t s e l f ge t s n o r m a l i s ed . S o i m agi n e w e w an t t o p r ov e t h e f ol l ow i n g t h e or e m ab ou t t h e r e d u c t i on b e h