aabbUnion (AABB n x) (AABB o y) = AABB (Point (min (px n) (px o)) (min (py n) (py o)) (min (pz n) (pz o)))
                                       (Point (max (px x) (px y)) (max (py x) (py y)) (max (pz x) (pz y)))
aabbUnion (AABB n x) (AABB o y) = AABB (Point (min (px n) (px o)) (min (py n) (py o)) (min (pz n) (pz o)))
                                       (Point (max (px x) (px y)) (max (py x) (py y)) (max (pz x) (pz y)))
aabbUnion (AABB n x) (AABB o y) = AABB (Point (min (px n) (px o)) (min (py n) (py o)) (min (pz n) (pz o)))
                                       (Point (max (px x) (px y)) (max (py x) (py y)) (max (pz x) (pz y)))