We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2918320 commit e01f7f8Copy full SHA for e01f7f8
ch16/ex1.txt
@@ -11,8 +11,6 @@ Inductive case:
11
add (Succ x) (Succ m)
12
= {applying add}
13
Succ (add x (Succ m))
14
-= {applying add}
15
-Succ (add x (Succ m))
16
= {induction hypothesis}
17
Succ (Succ (add x m))
18
= {unapplying add}
ch16/ex5.txt
@@ -20,8 +20,10 @@ xs
20
Inductive case:
21
take (n+1) (x:xs) ++ drop (n+1) (x:xs)
22
= {applying take}
23
-x : take n xs ++ drop (n+1) (x:xs)
+(x : take n xs) ++ drop (n+1) (x:xs)
24
= {applying drop}
25
-x : take n xs ++ drop n xs
+(x : take n xs) ++ drop n xs
26
+= {applying ++}
27
+x : (take n xs ++ drop n xs)
28
29
x : xs
0 commit comments