overload resolution with value type, for experiment

This commit is contained in:
aarne
2006-12-19 23:34:36 +00:00
parent 339aeb8bf6
commit 7bba9d1491
5 changed files with 46 additions and 28 deletions

View File

@@ -29,15 +29,15 @@ lin
evax1 =
proof (by (ref (mkLabel ["the first axiom of evenness ,"])))
(mkS (pred (regA "even") (UsePN (regPN "zero")))) ;
(mkS (predA (regA "even") (UsePN (regPN "zero")))) ;
evax2 n c =
appendText c
(proof (by (ref (mkLabel ["the second axiom of evenness ,"])))
(mkS (pred (regA "odd") (appN2 (regN2 "successor") n)))) ;
(mkS (predA (regA "odd") (appN2 (regN2 "successor") n)))) ;
evax3 n c =
appendText c
(proof (by (ref (mkLabel ["the third axiom of evenness ,"])))
(mkS (pred (regA "even") (appN2 (regN2 "successor") n)))) ;
(mkS (predA (regA "even") (appN2 (regN2 "successor") n)))) ;
eqax1 =