cryptol/tests/issues/issue006.icry

:l issue006.cry
g 5
let f x = 0
g 5
(f : [32] -> [32]) 5
let f x = if (x : [32]) == 0 then 1 else x * (f (x - 1))
f 5
let h x = g x
h 5
bind `it` even when no counterexample/sat is available; add tests Similar to what @weaversa requested in #66, we bind `it` to `False` when we can't find a sat assignment, and `it` to `True` when we've proved a theorem. Also adds some simple tests for the sat/prove result binding, and let binding at the repl. 2014-08-20 04:11:43 +04:00			`:l issue006.cry`
			`g 5`
			`let f x = 0`
			`g 5`
			`(f : [32] -> [32]) 5`
			`let f x = if (x : [32]) == 0 then 1 else x * (f (x - 1))`
fix external bindings not being in scope in let bodies The renamer was being run on let bindings without including the NamingEnv of the overall module context. Fixed and added a test case for this. 2014-08-20 22:18:26 +04:00			`f 5`
			`let h x = g x`
			`h 5`