yap-6.3/cplint/examples/coin2.uni

universe(['Coin'],[coin1,coin2]).

mode(heads(coin)).
mode(tails(coin)).
mode(toss(coin)).
mode(fair(coin)).
mode(biased(coin)).

type(coin,[coin1,coin2]).
added cplint directory git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1966 b08c6af1-5177-4d33-ba66-4b1c6b8b522a 2007-10-22 13:22:49 +01:00			`universe(['Coin'],[coin1,coin2]).`
examples for the new programs git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a 2007-11-15 12:38:55 +00:00
			`mode(heads(coin)).`
			`mode(tails(coin)).`
			`mode(toss(coin)).`
			`mode(fair(coin)).`
			`mode(biased(coin)).`

			`type(coin,[coin1,coin2]).`