diff --git a/examples/clean/Max_array.icl b/examples/clean/Max_array.icl
index 0fd638be6..1acd55beb 100644
--- a/examples/clean/Max_array.icl
+++ b/examples/clean/Max_array.icl
@@ -2,10 +2,6 @@ module example
 
 import StdEnv
 
-max :: Real Real -> Real
-max a b
-= if (a>=b) a b
-
 maxArray :: [Real] [Real] -> [Real]
 maxArray list1 list2
  = [ (max e1 e2)