19 lines
428 B
Coq
19 lines
428 B
Coq
(* Projet Coq - WP - MPRI 2.7.1 *)
|
|
|
|
(***** Partie 1 : definition de While ****************************************)
|
|
|
|
Require Import ZArith.BinInt.
|
|
Import Z.
|
|
|
|
Parameter Var: Type.
|
|
Definition Mem := Var -> Z.
|
|
Definition Expr:= Mem -> Z.
|
|
|
|
Inductive Instr : Type :=
|
|
| skip: Instr
|
|
| abort: Instr
|
|
| assign: Var -> Expr -> Instr
|
|
| seq: Instr -> Instr -> Instr
|
|
| ifelse: Expr -> Instr -> Instr -> Instr
|
|
| while: Expr -> Instr -> Instr.
|