14 lines
199 B
Plaintext
14 lines
199 B
Plaintext
mode(mother(person,person)).
|
|
mode(father(person,person)).
|
|
mode(cg(person,chr,allele)).
|
|
|
|
type(person,[s,m,f]).
|
|
|
|
type(chr,[1,2]).
|
|
|
|
type(allele,[p,w]).
|
|
|
|
universe(['X'],[s]).
|
|
|
|
universe(['A','B'],[p,w]).
|