39_a_freedoom
If a monster gets injured by another monster, it'll retaliate against the one that injured it (this is called monster in-fighting).
arc(r_0039_0001__If, r_0039_0004__gets, restriction).
arc(r_0039_0001__If, r_0039_0011___apos_ll, scope).
arc(r_0039_0004__gets, r_0039_0005__injured, scope).
arc(r_0039_0005__injured, r_0039_0002__a_r_0039_0003__monster, arg1).
arc(r_0039_0005__injured, r_0039_0007__another_r_0039_0008__monster, arg0).
arc(r_0039_0011___apos_ll, r_0039_0012__retaliate, scope).
arc(r_0039_0012__retaliate, r_0039_0002__a_r_0039_0003__monster, arg0).
arc(r_0039_0012__retaliate, r_0039_0014__the_r_0039_0015__one, r_0039_0013__against_clr37).
arc(r_0039_0016__that_r_0039_0017__injured, r_0039_0002__a_r_0039_0003__monster, arg1).
arc(r_0039_0016__that_r_0039_0017__injured, r_0039_0014__the_r_0039_0015__one, arg0).
fof(formula,axiom,
? [R_39_16_THAT_INJURED,R_39_14_THE_ONE,R_39_2_A_MONSTER] :
( the_one(R_39_14_THE_ONE)
& a_monster(R_39_2_A_MONSTER)
& ! [R_39_4_GETS_INJURED,R_39_7_ANOTHER_MONSTER] :
( ( another_monster(R_39_7_ANOTHER_MONSTER)
& gets_injured(R_39_4_GETS_INJURED,R_39_7_ANOTHER_MONSTER,R_39_2_A_MONSTER) )
=> ? [R_39_11__APOS_LL_RETALIATE] :
( _apos_ll_retaliate(R_39_11__APOS_LL_RETALIATE,R_39_2_A_MONSTER)
& against_clr37(R_39_11__APOS_LL_RETALIATE,R_39_14_THE_ONE) ) )
& that_injured(R_39_16_THAT_INJURED,R_39_14_THE_ONE,R_39_2_A_MONSTER) ) ).
( (IP-MAT (PP-SCON (P-CONN If;{if})
(IP-ADV (NP-SBJ;{MONSTER1} (D a;{a})
(N monster;{monster}))
(VBP;_cat_VePASS_ gets;{get})
(IP-PPL-CAT (VVN;_Tn_ injured;{injure})
(PP-LGS (P-ROLE;_lgs_ by;{by})
(NP;{MONSTER2} (D another;{another})
(N monster;{monster}))))))
(PUNC ,)
(NP-SBJ;{MONSTER1} (PRO it;{it}))
(MD;_cat_Vi_ <apos>ll;{will})
(IP-INF-CAT (VB;_Ipr_ retaliate;{retaliate[against]})
(PP-CLR (P-ROLE against;{against})
(NP;{MONSTER2} (D the;{the})
(N one;{one})
(IP-REL (C that;{that})
(NP-SBJ *T*)
(VBD;_Tn_ injured;{injure})
(NP-OB1;{MONSTER1} (PRO it;{it}))))))
(PULB -LRB-)
(PRN (IP-MAT (NP-SBJ (D;_nphd_ this;{this}))
(BEP;_cat_VePASS_ is;{be})
(IP-PPL-CAT (NP-LGS *)
(VVN;_Cn.n_ called;{call})
(NP-PRD (N monster;{monster})
(N in_<hyphen>_fighting;{infighting})))))
(PURB -RRB-)
(PUNC .))
(ID 39_a_freedoom))