doc-src/Tutorial/Datatype/abevala
author wenzelm
Wed, 02 Jan 2002 21:52:15 +0100
changeset 12616 07f1399c1fee
parent 5851 15ce4c1c8313
permissions -rw-r--r--
added isabelle-intro, isabelle-logics;

primrec
  "evala env (IF b a1 a2) =
     (if evalb env b then evala env a1 else evala env a2)"
  "evala env (Sum a1 a2) = evala env a1 + evala env a2"
  "evala env (Diff a1 a2) = evala env a1 - evala env a2"
  "evala env (Var v) = env v"
  "evala env (Num n) = n"