Define instructions
This commit is contained in:
parent
653e155f41
commit
23ca813c8c
1 changed files with 18 additions and 0 deletions
18
wp.v
Normal file
18
wp.v
Normal file
|
@ -0,0 +1,18 @@
|
|||
(* 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.
|
Loading…
Reference in a new issue