Ignore:
Timestamp:
Dec 16, 2010, 6:17:14 PM (9 years ago)
Author:
mulligan
Message:

Changes to get everything to compile.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Deliverables/D4.1/Matita/Interpret.ma

    r374 r439  
    33
    44ndefinition sign_extension: Byte → Word ≝
    5   λb.
    6     zero eight @@ b.
     5  λc.
     6    let b ≝ get_index_v ? eight c one ? in
     7      [[ b; b; b; b; b; b; b; b ]] @@ c.
     8  nnormalize;
     9  nrepeat (napply (less_than_or_equal_monotone ?));
     10  napply (less_than_or_equal_zero);
     11nqed.
    712   
    813nlemma inclusive_disjunction_true:
Note: See TracChangeset for help on using the changeset viewer.