Skip to content

Commit 6c4ac27

Browse files
committed
up
1 parent e76e5ab commit 6c4ac27

File tree

4 files changed

+12
-12
lines changed

4 files changed

+12
-12
lines changed

docs/examples/factorial-wrap.scm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55

66
;; (claim factorial-wrap (-> (-> Nat Nat) (-> Nat Nat)))
77
;; (claim (Y factorial-wrap) (-> Nat Nat))
8-
;; (claim Y (forall (A) (-> (-> A A) A)))
8+
;; (claim Y (nu (A) (-> (-> A A) A)))
99

1010
(define factorial-wrap
1111
(lambda (factorial)

docs/examples/nat-church.scm

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -12,22 +12,22 @@
1212
;; We know
1313

1414
;; (claim zero
15-
;; (forall (X)
15+
;; (nu (X)
1616
;; (-> X (-> X X) X)))
1717

1818
;; Thus
1919

2020
;; (define Nat
21-
;; (forall (X)
21+
;; (nu (X)
2222
;; (-> X (-> X X) X)))
2323

2424
;; (claim add1
2525
;; (-> Nat Nat)
26-
;; (forall (X)
26+
;; (nu (X)
2727
;; (-> Nat (-> X (-> X X) X))))
2828

2929
;; (claim iter-Nat
30-
;; (forall (X)
30+
;; (nu (X)
3131
;; (-> Nat (-> X (-> X X) X))))
3232

3333
;; # one to ten

docs/examples/nat-parigot.scm

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -9,16 +9,16 @@
99
;; ## Typing
1010

1111
;; (claim zero
12-
;; (forall (X)
12+
;; (nu (X)
1313
;; (-> X (-> Nat X X) X)))
1414

1515
;; (define Nat
16-
;; (forall (X)
16+
;; (nu (X)
1717
;; (-> X (-> Nat X X) X)))
1818

1919
;; (claim add1
2020
;; (-> Nat Nat)
21-
;; (forall (X)
21+
;; (nu (X)
2222
;; (-> Nat (-> X (-> Nat X X) X))))
2323

2424
;; # one to ten

docs/examples/nat-scott.scm

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -11,20 +11,20 @@
1111
;; ## Typing
1212

1313
;; (claim zero
14-
;; (forall (X)
14+
;; (nu (X)
1515
;; (-> X (-> Nat X) X)))
1616

1717
;; (define Nat
18-
;; (forall (X)
18+
;; (nu (X)
1919
;; (-> X (-> Nat X) X)))
2020

2121
;; (claim add1
2222
;; (-> Nat Nat)
23-
;; (forall (X)
23+
;; (nu (X)
2424
;; (-> Nat (-> X (-> Nat X) X))))
2525

2626
;; (claim which-Nat
27-
;; (forall (X)
27+
;; (nu (X)
2828
;; (-> Nat (-> X (-> Nat X) X))))
2929

3030
;; # one to ten

0 commit comments

Comments
 (0)