doc-src/Tutorial/Ifexpr/norm
changeset 5377 efb799c5ed3c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doc-src/Tutorial/Ifexpr/norm	Wed Aug 26 17:27:27 1998 +0200
@@ -0,0 +1,5 @@
+consts norm :: ifex => ifex
+primrec
+"norm (CIF b)    = CIF b"
+"norm (VIF x)    = VIF x"
+"norm (IF b t e) = normif b (norm t) (norm e)"