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]).
|