21_a_history_of_qed
This, like Ken's CTSS QED, was written in assembly language and compiled its regular expressions to machine code.
arc(r_0021_0006__CTSS_r_0021_0007__QED, r_0021_0004__Ken_r_0021_0005___apos_s, gen).
arc(r_0021_0009__was, r_0021_0006__CTSS_r_0021_0007__QED, r_0021_0003__like_nim10).
arc(r_0021_0009__was, r_0021_0014__and, scope).
arc(r_0021_0010__written, r_0021_0001__This, arg0).
arc(r_0021_0010__written, r_0021_0012__assembly_r_0021_0013__language, r_0021_0011__in_nim32).
arc(r_0021_0014__and, r_0021_0010__written, conj1).
arc(r_0021_0014__and, r_0021_0015__compiled, conj2).
arc(r_0021_0015__compiled, r_0021_0001__This, arg0).
arc(r_0021_0015__compiled, r_0021_0018__expressions, arg1).
arc(r_0021_0015__compiled, r_0021_0020__machine_r_0021_0021__code, r_0021_0019__to_nim55).
arc(r_0021_0018__expressions, r_0021_0001__This, gen).
arc(r_0021_0018__expressions, r_0021_0017__regular, attrib47).
fof(formula,axiom,
? [R_21_6_CTSS_QED,R_21_4_KEN_APOS_S] :
( ken_apos_s(R_21_4_KEN_APOS_S)
& ? [R_21_14_AND,R_21_10_WRITTEN,R_21_12_ASSEMBLY_LANGUAGE,R_21_15_COMPILED,R_21_18_EXPRESSIONS,R_21_17_REGULAR,R_21_1_THIS,R_21_20_MACHINE_CODE] :
( assembly_language(R_21_12_ASSEMBLY_LANGUAGE)
& regular(R_21_17_REGULAR)
& this(R_21_1_THIS)
& machine_code(R_21_20_MACHINE_CODE)
& and(R_21_14_AND)
& conj1(R_21_14_AND,R_21_10_WRITTEN)
& written(R_21_10_WRITTEN,R_21_1_THIS)
& in_nim32(R_21_10_WRITTEN,R_21_12_ASSEMBLY_LANGUAGE)
& conj2(R_21_14_AND,R_21_15_COMPILED)
& compiled(R_21_15_COMPILED,R_21_1_THIS,R_21_18_EXPRESSIONS)
& expressions(R_21_18_EXPRESSIONS)
& attrib47(R_21_18_EXPRESSIONS,R_21_17_REGULAR)
& gen(R_21_18_EXPRESSIONS,R_21_1_THIS)
& to_nim55(R_21_15_COMPILED,R_21_20_MACHINE_CODE) ) ) ).
( (IP-MAT (NP-SBJ;{GECOS_QED} (D;_nphd_ This;{this}))
(PUNC ,)
(PP-NIM (P-ROLE like;{like})
(NP;{CTSS_QED} (NP-GEN;{KEN} (NPR Ken;{Ken})
(GENM <apos>s))
(NPR CTSS;{CTSS})
(NPR QED;{QED})))
(PUNC ,)
(BED;_cat_VePASS_ was;{be})
(IP-PPL-CAT (ILYR (ILYR (VVN;__ written;{write})
(PP-NIM (P-ROLE in;{in})
(NP (N assembly;{assembly})
(N language;{language}))))
(CONJP (CONJ and;{and})
(ILYR (VVN;__ compiled;{compile})
(NP-OB1 (NP-GEN;{GECOS_QED} (PRO;_genm_ its;{its}))
(ADJP (ADJ regular;{regular}))
(NS expressions;{expression}))
(PP-NIM (P-ROLE to;{to})
(NP (N machine;{machine})
(N code;{code})))))))
(PUNC .))
(ID 21_a_history_of_qed))