cryptol/tests/mono-binds/test04.cry

module test04 where

test a = (f (), f 10)
  where
  f x = (a,x)
Add the mono-binds flag When `:set mono-binds=on`, any local definitions lacking type signatures will not be generalized (i.e., will be monomorphic). This reduces what is in most cases unnecessary polymorphism that can give rise to constraints that are difficult to solve. This also improves the performance of the Cryptol interpreter by lifting many polymorphic type applications out of the inner loops that are commonly defined as bindings in `where` clauses. The flag is on by default in the Cryptol REPL, and in most cases makes it possible to leave out more type signatures in `where` clauses than before. However, some programs really do rely on inferring polymorphic types for local variables; in this case adding an explicit polymorphic type signature to the local binding in question will make the program typecheck. 2014-12-16 04:48:25 +03:00			`module test04 where`

			`test a = (f (), f 10)`
			`where`
			`f x = (a,x)`