TSPC 30_a_history_of

30_a_history_of_qed
By 1974, Jay Michlin at Bell Labs wrote a version approximating this rendition for the IBM TSO system, and it was used at the Labs locations using IBM hardware and software.

arc(r_0030_0004__Jay_r_0030_0005__Michlin, r_0030_0007__Bell_r_0030_0008__Labs, r_0030_0006__at).
arc(r_0030_0009__wrote, r_0030_0002__1974, r_0030_0001__By_nim7).
arc(r_0030_0009__wrote, r_0030_0004__Jay_r_0030_0005__Michlin, arg0).
arc(r_0030_0009__wrote, r_0030_0010__a_r_0030_0011__version, arg1).
arc(r_0030_0010__a_r_0030_0011__version, r_0030_0016__the_r_0030_0017__IBM_r_0030_0018__TSO_r_0030_0019__system, r_0030_0015__for).
arc(r_0030_0012__approximating, r_0030_0010__a_r_0030_0011__version, arg0).
arc(r_0030_0012__approximating, r_0030_0013__this_r_0030_0014__rendition, arg1).
arc(r_0030_0021__and, r_0030_0009__wrote, conj1).
arc(r_0030_0021__and, r_0030_0023__was, conj2).
arc(r_0030_0023__was, r_0030_0024__used, scope).
arc(r_0030_0024__used, r_0030_0010__a_r_0030_0011__version, arg2).
arc(r_0030_0024__used, r_0030_0026__the_r_0030_0027__Labs_r_0030_0028__locations, r_0030_0025__at_nim71).
arc(r_0030_0024__used, r_0030_0029__using, arg1).
arc(r_0030_0024__used, z_000_30_a_history_of_qed_64, arg0).
arc(r_0030_0029__using, r_0030_0010__a_r_0030_0011__version, arg0).
arc(r_0030_0029__using, r_0030_0032__and, arg1).
arc(r_0030_0032__and, r_0030_0031__hardware, conj1).
arc(r_0030_0032__and, r_0030_0033__software, conj2).

fof(formula,axiom,
    ? [R_0030_0016__THE_R_0030_0017__IBM_R_0030_0018__TSO_R_0030_0019__SYSTEM,R_0030_0010__A_R_0030_0011__VERSION,R_0030_0013__THIS_R_0030_0014__RENDITION,R_0030_0012__APPROXIMATING,R_0030_0002__1974,R_0030_0007__BELL_R_0030_0008__LABS,R_0030_0004__JAY_R_0030_0005__MICHLIN,R_0030_0009__WROTE,R_0030_0026__THE_R_0030_0027__LABS_R_0030_0028__LOCATIONS,R_0030_0031__HARDWARE,R_0030_0033__SOFTWARE,R_0030_0032__AND,R_0030_0029__USING,Z_000_30_A_HISTORY_OF_QED_64,R_0030_0023__WAS_R_0030_0024__USED,R_0030_0021__AND] :
      ( r_0030_0002__1974(R_0030_0002__1974)
      & r_0030_0007__Bell_r_0030_0008__Labs(R_0030_0007__BELL_R_0030_0008__LABS)
      & r_0030_0013__this_r_0030_0014__rendition(R_0030_0013__THIS_R_0030_0014__RENDITION)
      & r_0030_0016__the_r_0030_0017__IBM_r_0030_0018__TSO_r_0030_0019__system(R_0030_0016__THE_R_0030_0017__IBM_R_0030_0018__TSO_R_0030_0019__SYSTEM)
      & r_0030_0026__the_r_0030_0027__Labs_r_0030_0028__locations(R_0030_0026__THE_R_0030_0027__LABS_R_0030_0028__LOCATIONS)
      & r_0030_0031__hardware(R_0030_0031__HARDWARE)
      & r_0030_0033__software(R_0030_0033__SOFTWARE)
      & z_000_30_a_history_of_qed_64(Z_000_30_A_HISTORY_OF_QED_64)
      & r_0030_0021__and(R_0030_0021__AND)
      & has_conj2(R_0030_0021__AND,R_0030_0023__WAS_R_0030_0024__USED)
      & r_0030_0023__was_r_0030_0024__used(R_0030_0023__WAS_R_0030_0024__USED)
      & has_arg0(R_0030_0023__WAS_R_0030_0024__USED,Z_000_30_A_HISTORY_OF_QED_64)
      & has_arg1(R_0030_0023__WAS_R_0030_0024__USED,R_0030_0029__USING)
      & r_0030_0029__using(R_0030_0029__USING)
      & has_arg1(R_0030_0029__USING,R_0030_0032__AND)
      & r_0030_0032__and(R_0030_0032__AND)
      & has_conj2(R_0030_0032__AND,R_0030_0033__SOFTWARE)
      & has_conj1(R_0030_0032__AND,R_0030_0031__HARDWARE)
      & has_arg0(R_0030_0029__USING,R_0030_0010__A_R_0030_0011__VERSION)
      & r_0030_0010__a_r_0030_0011__version(R_0030_0010__A_R_0030_0011__VERSION)
      & has_r_0030_0015__for(R_0030_0010__A_R_0030_0011__VERSION,R_0030_0016__THE_R_0030_0017__IBM_R_0030_0018__TSO_R_0030_0019__SYSTEM)
      & has_r_0030_0025__at_nim71(R_0030_0023__WAS_R_0030_0024__USED,R_0030_0026__THE_R_0030_0027__LABS_R_0030_0028__LOCATIONS)
      & has_arg2(R_0030_0023__WAS_R_0030_0024__USED,R_0030_0010__A_R_0030_0011__VERSION)
      & has_conj1(R_0030_0021__AND,R_0030_0009__WROTE)
      & r_0030_0009__wrote(R_0030_0009__WROTE)
      & has_arg1(R_0030_0009__WROTE,R_0030_0010__A_R_0030_0011__VERSION)
      & has_arg0(R_0030_0009__WROTE,R_0030_0004__JAY_R_0030_0005__MICHLIN)
      & r_0030_0004__Jay_r_0030_0005__Michlin(R_0030_0004__JAY_R_0030_0005__MICHLIN)
      & has_r_0030_0006__at(R_0030_0004__JAY_R_0030_0005__MICHLIN,R_0030_0007__BELL_R_0030_0008__LABS)
      & has_r_0030_0001__By_nim7(R_0030_0009__WROTE,R_0030_0002__1974)
      & r_0030_0012__approximating(R_0030_0012__APPROXIMATING)
      & has_arg1(R_0030_0012__APPROXIMATING,R_0030_0013__THIS_R_0030_0014__RENDITION)
      & has_arg0(R_0030_0012__APPROXIMATING,R_0030_0010__A_R_0030_0011__VERSION) ) ).

( (IP-MAT (ILYR (ILYR (PP-NIM (P-ROLE By;{by})
                              (NP (NPR 1974)))
                      (PUNC ,)
                      (NP-SBJ (NPR Jay;{Jay})
                              (NPR Michlin;{Michlin})
                              (PP (P-ROLE at;{at})
                                  (NP;{BELL_LABS} (NPR Bell;{Bell})
                                                  (NPR Labs;{Labs}))))
                      (VBD;__ wrote;{write})
                      (NP-OB1;{TSO_QED} (D a;{a})
                                        (N version;{version})
                                        (IP-PPL (VAG;__ approximating;{approximate})
                                                (NP-OB1 (D this;{this})
                                                        (N rendition;{rendition})))
                                        (PP (P-ROLE for;{for})
                                            (NP (D the;{the})
                                                (NPR IBM;{IBM})
                                                (NPR TSO;{TSO})
                                                (N system;{system})))))
                (PUNC ,)
                (CONJP (CONJ and;{and})
                       (ILYR (NP-SBJ;{TSO_QED} (PRO it;{it}))
                             (BED;_cat_VePASS_ was;{be})
                             (IP-PPL-CAT (NP-LGS *)
                                         (VVN;__ used;{use})
                                         (PP-NIM (P-ROLE at;{at})
                                                 (NP (D the;{the})
                                                     (NPRS Labs;{Labs})
                                                     (NS locations;{location})))
                                         (IP-PPL-OB1 (VAG;__ using;{use})
                                                     (NP-OB1 (NPR IBM;{IBM})
                                                             (NLYR (NLYR (N hardware;{hardware}))
                                                                   (CONJP (CONJ and;{and})
                                                                          (NLYR (N software;{software}))))))))))
          (PUNC .))
  (ID 30_a_history_of_qed))