projects
/
lambda.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
assignment7 tweaks
[lambda.git]
/
hints
/
assignment_7_hint_4.mdwn
diff --git
a/hints/assignment_7_hint_4.mdwn
b/hints/assignment_7_hint_4.mdwn
index
e4f0a79
..
568a9cc
100644
(file)
--- a/
hints/assignment_7_hint_4.mdwn
+++ b/
hints/assignment_7_hint_4.mdwn
@@
-99,10
+99,10
@@
which is:
which is:
- fun truth_value ->
+
let eliminate_non_Qxs =
fun truth_value ->
if truth_value
then unit_set (
if truth_value
then unit_set (
-
let eliminate_non_Qxs =
fun (r, h) ->
+ fun (r, h) ->
let obj = List.nth h (r 'x')
let (a, r', h') = (obj, r, h)
in let u' = (fun e -> unit_dpm (Q e)) a
let obj = List.nth h (r 'x')
let (a, r', h') = (obj, r, h)
in let u' = (fun e -> unit_dpm (Q e)) a