initial_rws : unit -> computeLib.comp_rws
We assume here that the canonical representation of the naturals is the
binary one. Therefore, defining function by pattern matching using SUC
will not be recognized. For instance, defining the exponentaition
function as
|- (n EXP 0 = 1) /\ (n EXP (SUC p) = n * n EXP p)
It is possible to make this definition work by using the following
lemma:
|- (exp n p = if n = 0 then 1 else n * (exp n (p-1)))
- CBV_CONV (initial_rws()) (--`EVERY (\n. EVEN n) [4;6;8;10;12;14;16]`--); > val it = |- EVERY (\n. EVEN n) [4; 6; 8; 10; 12; 14; 16] = T : thm