68_a_ibm_1401
But with the Report Program Generator, all the programmer has to write are these two statements:
arc(r_0068_0001__But_r_0068_0014__are, r_0068_0003__the_r_0068_0004__Report_r_0068_0005__Program_r_0068_0006__Generator, r_0068_0002__with_nim7).
arc(r_0068_0001__But_r_0068_0014__are, r_0068_0015__these_r_0068_0016__two_r_0068_0017__statements, prd).
arc(r_0068_0001__But_r_0068_0014__are, z_000_68_a_ibm_1401_18, arg0).
arc(r_0068_0008__all_quant, r_0068_0001__But_r_0068_0014__are, scope).
arc(r_0068_0008__all_quant, z_000_68_a_ibm_1401_18, restriction).
arc(r_0068_0011__has, r_0068_0012__to_r_0068_0013__write, scope).
arc(r_0068_0012__to_r_0068_0013__write, r_0068_0009__the_r_0068_0010__programmer, arg0).
arc(r_0068_0012__to_r_0068_0013__write, z_000_68_a_ibm_1401_18, arg1).
fof(formula,axiom,
! [R_68_11_HAS_TO_WRITE,R_68_9_THE_PROGRAMMER,Z_68_A_IBM_1401_18] :
( ( the_programmer(R_68_9_THE_PROGRAMMER)
& has_to_write(R_68_11_HAS_TO_WRITE,R_68_9_THE_PROGRAMMER,Z_68_A_IBM_1401_18) )
=> ? [R_68_1_BUT_ARE,R_68_15_THESE_TWO_STATEMENTS,R_68_3_THE_REPORT_PROGRAM_GENERATOR] :
( these_two_statements(R_68_15_THESE_TWO_STATEMENTS)
& the_Report_Program_Generator(R_68_3_THE_REPORT_PROGRAM_GENERATOR)
& but_are(R_68_1_BUT_ARE,Z_68_A_IBM_1401_18,R_68_15_THESE_TWO_STATEMENTS)
& with_nim7(R_68_1_BUT_ARE,R_68_3_THE_REPORT_PROGRAM_GENERATOR) ) ) ).
( (IP-MAT (CONJ;_cl_ But;{but})
(PP-NIM (P-ROLE with;{with})
(NP;{REPORT_GENERATOR} (D the;{the})
(N Report;{report})
(N Program;{program})
(N Generator;{generator})))
(PUNC ,)
(NP-SBJ (Q;_nphd_ all;{all})
(IP-REL (NP-SBJ (D the;{the})
(N programmer;{programmer}))
(HVP;_cat_Vt_ has;{have})
(IP-INF-CAT (NP-OB1 *T*)
(TO to;{to})
(VB;_Tn_ write;{write}))))
(BEP;_Ln_ are;{be})
(NP-PRD;{STATEMENTS} (D these;{these})
(NUM two;{two})
(NS statements;{statement}))
(PUNC :))
(ID 68_a_ibm_1401))