Changeset 1378 for src/LIN/LIN.ma


Ignore:
Timestamp:
Oct 14, 2011, 7:32:21 PM (9 years ago)
Author:
sacerdot
Message:

New file LIN/joint_LTL_LIN.ma to factorize out the syntactic parameters shared
by LTL and LIN.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/LIN/LIN.ma

    r1281 r1378  
    1 include "joint/Joint.ma".
     1include "LIN/joint_LTL_LIN.ma".
    22include "utilities/lists.ma".
    33
    4 definition lin_params__: params__ ≝
    5  mk_params__ unit unit unit unit registers_move Register nat unit False.
    6 definition lin_params_ : params_ ≝ mk_params_ lin_params__ unit.
    7 definition lin_params0 : params0 ≝ mk_params0 lin_params__ unit unit.
    8 definition lin_params1 : params1 ≝ mk_params1 lin_params0 unit.
     4definition lin_params_ : params_ ≝ mk_params_ ltl_lin_params__ unit.
    95
    106definition pre_lin_statement ≝ joint_statement lin_params_.
     
    2420definition lin_params: ∀globals. params globals ≝
    2521 λglobals.
    26   mk_params globals unit lin_params1 (Σcode:list (lin_statement globals). well_formed_P … code)
     22  mk_params globals unit ltl_lin_params1 (Σcode:list (lin_statement globals). well_formed_P … code)
    2723   (λcode:Σcode.?. λl.
    2824    find ?? (λs. let 〈l',x〉 ≝ s in
Note: See TracChangeset for help on using the changeset viewer.