8fb01d6607
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
14 lines
215 B
Plaintext
14 lines
215 B
Plaintext
mode(mother(person,person)).
|
|
mode(father(person,person)).
|
|
mode(cg(person,chr,allele)).
|
|
|
|
type(person,[s,m,f,mm,fm,mf,ff]).
|
|
|
|
type(chr,[1,2]).
|
|
|
|
type(allele,[p,w]).
|
|
|
|
universe(['X'],[s,m,f]).
|
|
|
|
universe(['A','B'],[p,w]).
|