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

Porting to last standard library of Matita.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/Cminor/semantics.ma

    r1603 r1605  
    235235
    236236(* TODO: perhaps should do a little type checking? *)
    237 let rec bind_params (vs:list val) (ids:list (ident×typ)) : res (Sig ? (λen:env. All ? (λit. present ?? en (\fst it)) ids)) ≝
     237let rec bind_params (vs:list val) (ids:list (ident×typ)) : res (Σen:env. All ? (λit. present ?? en (\fst it)) ids) ≝
    238238match vs with
    239239[ nil ⇒ match ids return λids.res (Σen. All ?? ids) with [ nil ⇒ OK ? «empty_map ??, ?» | _ ⇒ Error ? (msg WrongNumberOfParameters) ]
Note: See TracChangeset for help on using the changeset viewer.