fact: Fixpoint ds(i:instr) : env -> option env := match i with assign x e => fun l => bind (af l e) (fun v => uf l x v) | sequence i1 i2 => fun r => bind (ds i1 r) (ds i2) | while e i => fun l => phi (fun l' => bf l' e)(ds i) l | skip => fun r => Some r end.
imports: Relations ClassicalEpsilon function_cpo constructs syntax little