Changeset 1608 for src/Cminor


Ignore:
Timestamp:
Dec 14, 2011, 2:30:39 PM (8 years ago)
Author:
sacerdot
Message:

Porting to new library still in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/Cminor/initialisation.ma

    r1605 r1608  
    5959λvars. foldr ? (Σs:stmt. stmt_inv s)
    6060  (λvar,s. dp ? (λx.stmt_inv x ) (St_seq s (init_var (\fst (\fst var)) (\snd (\fst var)) (\snd var))) ?) (dp ? (λx.stmt_inv x ) St_skip (conj ?? I I)) vars.
    61 % [ % [ % // | @(use_sig ? stmt_inv) ] | @(use_sig ? stmt_inv) ]
     61% [ % [ % // | @(pi2 ? stmt_inv) ] | @(pi2 ? stmt_inv) ]
    6262qed.
    6363
Note: See TracChangeset for help on using the changeset viewer.