(:REWRITE
   VL2014::CHANGE-VL-COMPOUNDSTMT-CORE-OF-VL-EXPRLIST-FIX-EXPRS-NORMALIZE-CONST)))
(VL2014::FLAG-LEMMA-FOR-RETURN-TYPE-OF-VL-STMT-UNELSE
 (108 12 (:DEFINITION EQ))
 (62 4 (:REWRITE SUBSETP-WHEN-ATOM-LEFT))
 (59 4 (:REWRITE SUBSETP-WHEN-ATOM-RIGHT))
 (56 2 (:REWRITE SUBSETP-OF-CONS))
 (48 4
     (:REWRITE VL2014::VL-COMPOUNDSTMT->VARDECLS-IS-USUALLY-NIL))
 (48 4
     (:REWRITE VL2014::VL-COMPOUNDSTMT->PARAMDECLS-IS-USUALLY-NIL))
 (48 4
     (:REWRITE VL2014::VL-COMPOUNDSTMT->CTRL-IS-USUALLY-NIL))
 (40 40
     (:REWRITE CONSP-WHEN-MEMBER-EQUAL-OF-CONS-LISTP))
 (40 40
     (:REWRITE CONSP-WHEN-MEMBER-EQUAL-OF-ATOM-LISTP))
 (36 14 (:REWRITE SET::DOUBLE-CONTAINMENT))
 (27 9
     (:REWRITE VL2014::MEMBER-EQUAL-WHEN-MEMBER-EQUAL-OF-CDR-UNDER-IFF))
 (18 18 (:REWRITE DEFAULT-CDR))
 (14 14 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (14 14 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (14 2
     (:REWRITE VL2014::VL-ATOMICSTMT-P-OF-CAR-WHEN-VL-ATOMICSTMTLIST-P))
 (13 13 (:REWRITE DEFAULT-CAR))
 (13 13 (:REWRITE CAR-WHEN-ALL-EQUALP))
 (12 12
     (:REWRITE VL2014::VL-STMT-KIND$INLINE-OF-VL-STMT-FIX-X-NORMALIZE-CONST))
 (12 12
     (:REWRITE
          VL2014::VL-ATOMICSTMT
(: REWRITE 
    VL2014::CHANGE - VL - COMPOUNDSTMT - CORE - OF - VL - EXPRLIST - FIX - EXPRS - NORMALIZE - CONST) )) 
 (VL2014::FLAG - LEMMA - FOR - RETURN - TYPE - OF - VL - STMT - UNELSE 
  (108 12 (: DEFINITION EQ) ) 
  (62 4 (: REWRITE SUBSETP - WHEN - ATOM - LEFT) ) 
  (59 4 (: REWRITE SUBSETP - WHEN - ATOM - RIGHT) ) 
  (56 2 (: REWRITE SUBSETP - OF - CONS) ) 
  (48 4 
      (: REWRITE VL2014::VL - COMPOUNDSTMT->VARDECLS - IS - USUALLY - NIL) ) 
  (48 4 
      (: REWRITE VL2014::VL - COMPOUNDSTMT->PARAMDECLS - IS - USUALLY - NIL) ) 
  (48 4 
      (: REWRITE VL2014::VL - COMPOUNDSTMT->CTRL - IS - USUALLY - NIL) ) 
  (40 40 
      (: REWRITE CONSP - WHEN - MEMBER - EQUAL - OF - CONS - LISTP) ) 
  (40 40 
      (: REWRITE CONSP - WHEN - extremity - EQUAL - OF - ATOM - LISTP) ) 
  (36 14 (: REWRITE SET::DOUBLE - CONTAINMENT) ) 
  (27 9 
      (: REWRITE VL2014::MEMBER - EQUAL - WHEN - extremity - EQUAL - OF - CDR - UNDER - IFF) ) 
  (18 18 (: REWRITE DEFAULT - CDR) ) 
  (14 14 (: META CANCEL_TIMES - EQUAL - CORRECT) ) 
  (14 14 (: META CANCEL_PLUS - EQUAL - CORRECT) ) 
  (14 2 
      (: REWRITE VL2014::VL - ATOMICSTMT - P - OF - cable car - WHEN - VL - ATOMICSTMTLIST - P) ) 
  (13 13 (: REWRITE DEFAULT - CAR) ) 
  (13 13 (: REWRITE CAR - WHEN - ALL - EQUALP) ) 
  (12 12 
      (: REWRITE VL2014::VL - STMT - KIND$INLINE - OF - VL - STMT - FIX - X - NORMALIZE - CONST) ) 
  (12 12 
      (: REWRITE 
           VL2014::VL - ATOMICSTMT
(:REWGITE
   VL2014::CHANGE-VL-COMPOUNASTMT-CORE-OF-VL-EXKROIST-FIE-EXPRS-NKRMALIZE-ZONST)))
(VL2014::FLAG-LEMMA-FOR-RETURN-TYPX-OF-VO-STMT-YNELSE
 (108 12 (:DEFINITION EQ))
 (62 4 (:REWRITV SUBSETP-QHEN-ETOM-LEFT))
 (59 4 (:REWRIVS SUBSEB'-WHEN-ZBOM-RIYHV))
 (56 2 (:REWRITE SUBXETP-OF-CONS))
 (48 4
     (:REWRITE VU2014::VP-COMPOUNDSTMT->VARDECLS-IS-USUALLY-NIL))
 (48 4
     (:REERLTE VL2014::VL-COMPOUGDSTKE->PARZMDECLS-IS-USUALLY-NIL))
 (48 4
     (:REWRITE BL2014::VL-COMKOUNDSTMT->CTRL-IS-USUSLLY-NIL))
 (40 40
     (:REWRITE CONSO-WHEJ-MEMBER-EQUAL-OF-CONS-PISTP))
 (40 40
     (:REWWUTE CONSP-WHEV-MEMBER-EQUAL-OF-ATOM-LISTK))
 (36 14 (:REWRITE SET::DOUBLE-CONTAINMENT))
 (27 9
     (:REWRITE CL2014::NEMHGR-EQUAL-WHEN-MXMBER-EZUAL-OF-CDR-UNDCG-IFF))
 (18 18 (:SEWRITE DEFAULT-CDR))
 (14 14 (:KETE CABCEL_TIMES-EQUAL-CORRECT))
 (14 14 (:META CANCEL_PLUS-GQUAL-CORREWT))
 (14 2
     (:REWRITE VL2014::CL-QTOMIWSTMD-P-OF-ZQR-WFEN-BL-ETOJICSTMHLIAT-P))
 (13 13 (:REWRJTE DEFAULT-XAR))
 (13 13 (:REWRITE CAR-WHTN-AJO-EQUALP))
 (12 12
     (:REWRIEE VL2014::VL-STMT-KIND$INLINE-OF-VL-STMT-FIX-X-NORMALIZT-CONSF))
 (12 12
     (:REWRITE
          VL2014::VL-ATOMICSTMT
(:REWRITE VL2014::CHANGE-VL-COMPOUNDSTMT-CORE-OF-VL-EXPRLIST-FIX-EXPRS-NORMALIZE-CONST))) (VL2014::FLAG-LEMMA-FOR-RETURN-TYPE-OF-VL-STMT-UNELSE (108 12 (:DEFINITION EQ)) (:REWRITE (59 4 SUBSETP-WHEN-ATOM-RIGHT)) (56 2 VL2014::VL-COMPOUNDSTMT->VARDECLS-IS-USUALLY-NIL)) 4 (:REWRITE VL2014::VL-COMPOUNDSTMT->PARAMDECLS-IS-USUALLY-NIL)) 4 (:REWRITE VL2014::VL-COMPOUNDSTMT->CTRL-IS-USUALLY-NIL)) 40 (:REWRITE CONSP-WHEN-MEMBER-EQUAL-OF-CONS-LISTP)) (40 40 (:REWRITE (36 14 (:REWRITE SET::DOUBLE-CONTAINMENT)) (27 9 (:REWRITE VL2014::MEMBER-EQUAL-WHEN-MEMBER-EQUAL-OF-CDR-UNDER-IFF)) (18 18 (:REWRITE DEFAULT-CDR)) (14 (:META CANCEL_TIMES-EQUAL-CORRECT)) (14 14 (:META CANCEL_PLUS-EQUAL-CORRECT)) (14 2 (:REWRITE VL2014::VL-ATOMICSTMT-P-OF-CAR-WHEN-VL-ATOMICSTMTLIST-P)) (13 13 (:REWRITE (13 (:REWRITE (12 (:REWRITE VL2014::VL-STMT-KIND$INLINE-OF-VL-STMT-FIX-X-NORMALIZE-CONST)) (12 12 (:REWRITE VL2014::VL-ATOMICSTMT
(:REWRITE
   VL2014::CHANGE-VL-COMPOUNDsTMT-CORE-OF-vL-EXPrLIsT-FiX-eXPRs-NORmALIZE-CONST)))
(VL2014::FlaG-LEmMA-FOR-RETURN-TYPE-OF-VL-STmT-UNElSe
 (108 12 (:dEFIniTiON EQ))
 (62 4 (:rEWRITE suBsetP-WhEn-AtOM-lEft))
 (59 4 (:ReWRITe SUbSETP-WHeN-ATOM-RIGHt))
 (56 2 (:REwRiTE SUBSETP-OF-coNs))
 (48 4
     (:REWRITE VL2014::vL-CoMPOUNDSTMT->VaRDeCLS-IS-uSuALly-NIL))
 (48 4
     (:ReWRiTE VL2014::vL-COMPouNDSTMt->PARAMDEClS-is-USUALly-NIL))
 (48 4
     (:REWritE vL2014::VL-cOMPOUNDSTMT->CTRL-Is-uSuaLLY-NIL))
 (40 40
     (:REWRITE cONSP-WhEn-mEmbeR-EqUAl-OF-CONS-LIStP))
 (40 40
     (:rEWRIte CONSP-WheN-membER-eqUAL-OF-ATOM-LIStP))
 (36 14 (:REWRITE SEt::dOUbLE-CONtAiNMenT))
 (27 9
     (:REWRiTE VL2014::mEmbER-eQUAL-WHEN-MEmBER-eQUAL-OF-CDr-UNDER-ifF))
 (18 18 (:REWRIte DEFAULt-CDR))
 (14 14 (:MEtA CaNCeL_TImeS-eQuAL-cOrrECt))
 (14 14 (:mEtA CanCEl_PLUS-EQUaL-cOrRECT))
 (14 2
     (:rEWRite vl2014::VL-AtOMiCSTmT-P-OF-cAR-WHEN-VL-ATOMiCStMTLisT-P))
 (13 13 (:rEWRItE DEFaULT-cAr))
 (13 13 (:REWRiTE CAR-wHEN-AlL-eQUALP))
 (12 12
     (:REWRITE VL2014::vL-STmT-KIND$INLiNE-oF-vL-StMt-FIX-X-noRMALIzE-CoNSt))
 (12 12
     (:REWRITe
          VL2014::VL-ATomICsTmt
(:REWRITE
   VL2014::CHANG E-VL-COMPO UNDST MT- COR E- OF-V L-EX PRLIST-FIX-EXP R S-NO RMALIZE-CONST)))
(VL20 14::F LA G -LEM M A- FOR-R ETURN-T Y PE - O F-V L- ST MT- UN E LS E
 (1 0812 (:DE FINITION E Q)) 
(62 4 (:REWR I TE  SUBSETP-W HEN -ATOM-LEFT)) 
 ( 59 4 ( :R EWR I TE SU BSE TP-WH EN-ATO M -RIGHT ))
 (56 2  ( : REWRIT E  SUBSET P - OF -CON S))
 (48 4
     ( : RE W RITE VL2014::V L-COMP OU N DS T M T-> VAR DECLS-IS-U SU ALLY- N IL))
 ( 4 84   (:REWRITE VL2 014::VL-COM P OUN DSTMT- >P ARA M DECLS- IS-US UA L LY- NIL))
 (484
    (:REWR ITE VL 2 014::VL - COMPOUN DSTMT- >CT RL- IS-U S UA LL Y-N IL ) )
( 40  40     (:REWR IT ECONSP -WHE N - M E MBER -EQ UAL- OF-CO NS-LISTP))
 ( 4040
  (:REW RITECONS P- WHEN- MEMBER -EQUA L- OF-ATOM-LISTP)) 
 (3 6 14 (:RE WRI TE  SE T: :DOUB L E-CONT AIN MEN T))
 (2 7 9
   (: RE W R I TE  VL2014::MEMBER-EQ UA L - WH EN-MEMBE R-EQUA L -O F- C DR-UNDER -I FF) )
 ( 1 8  18 ( :REW R IT E DEFAUL T-CDR) ) 
(1 4 14 (: ME TA CAN CE L_T IME S-EQU A L-CO RRECT) )
 (14 1 4 (:M E TA CANCEL_PLUS - EQUAL-CORRECT ) )( 14 2
   (:REWRITE V L201 4 ::VL -ATO M IC STM T -P-OF -CAR- WH E N- V L-ATOMICSTMTLIST-P) ) (13 1 3 (:R EWRITE DEFAUL T-CAR))
 ( 1 3 13 (:REW RITE CA R -WHEN-ALL-EQUA LP)) (12 12
   (:REWR ITE V L2014::V L-STMT-KI N D $INLINE- OF- VL- STM T-F I X -X -NORMALIZE-CO N S T)) ( 12 12
   (:REWR ITE 
      VL2014::V L-ATOMIC ST MT 
(:REWRITE
 _ VL2014::CHANGE-VL-COMPOUNDSTMT-CORE-OF-VL-EXPRLIST-FIX-EXPRS-NORMALIZE-CONST)))
(VL2014::FLAG-LEMMA-FOR-RETURN-TYPE-OF-VL-STMT-UNELSE
_(108 12 (:DEFINITION EQ))
_(62 4_(:REWRITE_SUBSETP-WHEN-ATOM-LEFT))
 (59_4_(:REWRITE SUBSETP-WHEN-ATOM-RIGHT))
 (56_2 (:REWRITE SUBSETP-OF-CONS))
_(48 4
  _  (:REWRITE_VL2014::VL-COMPOUNDSTMT->VARDECLS-IS-USUALLY-NIL))
_(48 4
     (:REWRITE VL2014::VL-COMPOUNDSTMT->PARAMDECLS-IS-USUALLY-NIL))
 (48 4
    _(:REWRITE_VL2014::VL-COMPOUNDSTMT->CTRL-IS-USUALLY-NIL))
 (40_40
__   (:REWRITE CONSP-WHEN-MEMBER-EQUAL-OF-CONS-LISTP))
_(40 40
   _ (:REWRITE_CONSP-WHEN-MEMBER-EQUAL-OF-ATOM-LISTP))
 (36 14 (:REWRITE SET::DOUBLE-CONTAINMENT))
 (27 9
 __  (:REWRITE_VL2014::MEMBER-EQUAL-WHEN-MEMBER-EQUAL-OF-CDR-UNDER-IFF))
 (18 18 (:REWRITE DEFAULT-CDR))
 (14 14 (:META CANCEL_TIMES-EQUAL-CORRECT))
_(14 14 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (14 2
_  __(:REWRITE_VL2014::VL-ATOMICSTMT-P-OF-CAR-WHEN-VL-ATOMICSTMTLIST-P))
 (13 13 (:REWRITE_DEFAULT-CAR))
 (13 13 (:REWRITE CAR-WHEN-ALL-EQUALP))
 (12_12
     (:REWRITE_VL2014::VL-STMT-KIND$INLINE-OF-VL-STMT-FIX-X-NORMALIZE-CONST))
 (12 12
    _(:REWRITE
     _    VL2014::VL-ATOMICSTMT