This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
|
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]).
|