:- op(1200,xfx,ならば). :- op(1000,xfy,かつ). :- op(750,xfx,[の環境で]). :- op(720,xf,[の要素]). :- op(700,xfx,が). :- op(700,xfx,[を評価すると,の型は]). :- op(20,xf,[で関数適用,が変数,が整数]). :- op(10,xfx,[を]). term_expansion(A ならば B,B:-A). A,B ならば A かつ B. integer(A) ならば A が整数. atom(A) ならば A が変数. B is A ならば A が B. A が (_,A) の要素. A が E の要素 ならば A が (E,_) の要素. % 評価規則 I が整数 ならば _ の環境で I を評価すると I. E の環境で T1 を評価すると V1 かつ E の環境で T2 を