Define instructions

This commit is contained in:
Théophile Bastian 2017-10-19 15:25:03 +02:00
parent 653e155f41
commit 23ca813c8c

18
wp.v Normal file
View 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.