Skip to content

Commit e01f7f8

Browse files
committed
fix ex16.1 and ex16.5
1 parent 2918320 commit e01f7f8

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

ch16/ex1.txt

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,8 +11,6 @@ Inductive case:
1111
add (Succ x) (Succ m)
1212
= {applying add}
1313
Succ (add x (Succ m))
14-
= {applying add}
15-
Succ (add x (Succ m))
1614
= {induction hypothesis}
1715
Succ (Succ (add x m))
1816
= {unapplying add}

ch16/ex5.txt

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -20,8 +20,10 @@ xs
2020
Inductive case:
2121
take (n+1) (x:xs) ++ drop (n+1) (x:xs)
2222
= {applying take}
23-
x : take n xs ++ drop (n+1) (x:xs)
23+
(x : take n xs) ++ drop (n+1) (x:xs)
2424
= {applying drop}
25-
x : take n xs ++ drop n xs
25+
(x : take n xs) ++ drop n xs
26+
= {applying ++}
27+
x : (take n xs ++ drop n xs)
2628
= {induction hypothesis}
2729
x : xs

0 commit comments

Comments
 (0)