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.
yap-6.3/cplint/examples/student.uni
rzf 8fb01d6607 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

30 lines
635 B
Plaintext

universe(['S'],[jane_doe]).
universe(['P'],[gump]).
universe(['Reg'],[5639,5640]).
universe(['C'],[phil101]).
type(prof,[gump]).
type(stu,[jane_doe]).
type(abi,[l,h]).
type(int,[h,l]).
type(reg,[5639,5640]).
type(cou,[phil101]).
type(gr,[1,2]).
type(sat,[1,2]).
type(dif,[h,l]).
type(rat,[h,l]).
mode(professor(prof)).
mode(professor_teach_ab(prof,abi)
mode(student(stu)).
mode(student_int(stu,int)).
mode(registr(reg)).
mode(registr_cou(reg,cou)).
mode(registr_stu(reg,stu)).
mode(registr_gr(reg,gr)).
mode(registr_sat(reg,sat)).
mode(course(cou)).
mode(course_prof(cou,prof)).
mode(course_dif(cou,dif)).
mode(course_rat(cou,rat)).