/* <module>
%
%  PFC is a language extension for prolog.
%
%  It adds a new type of module inheritance
%
% Dec 13, 2035
% Douglas Miles
*/
%  was_module(mt_01,[]).

:- include(library(logicmoo_test_header)).

:- expects_dialect(pfc).

%:- add_import_module(mt_01,baseKB,end).

% :- set_defaultAssertMt(code1).

% mtProlog(code1).
mtHybrid(code1).
mtHybrid(kb2).
mtHybrid(kb3).

:- listing(mtProlog/1).
:- listing(mtHybrid/1).


% code1: (a <- b).
code1: (a:- printAll('$current_source_module'(_M))).


kb2: (b).

baseKB:genlMt(kb2,code1).

baseKB:genlMt(code1,baseKB).

kb2: (:- a).

baseKB:genlMt(kb3,kb2).


kb3:predicateConventionMt(c,code1).

kb3: (a==>c).

% to make sure a does not get accdently defined in kb2 or kb3
:- mpred_must((clause(kb3:a,_,Ref), clause_property(Ref,module(kb3)))).
:- mpred_must(( clause(kb2:a,_))).

% c is forward chained back into 'code1' where it becomes asserted
% :- mpred_must(clause(code1:c,_)).



% ISSUE: https://github.com/logicmoo/logicmoo_workspace/issues/363 
% EDIT: https://github.com/logicmoo/logicmoo_workspace/edit/master/packs_sys/pfc/t/sanity_base/mt_07a.pl 
% JENKINS: https://jenkins.logicmoo.org/job/logicmoo_workspace/lastBuild/testReport/logicmoo.pfc.test.sanity_base/MT_07A/logicmoo_pfc_test_sanity_base_MT_07A_JUnit/ 
% ISSUE_SEARCH: https://github.com/logicmoo/logicmoo_workspace/issues?q=is%3Aissue+label%3AMT_07A