Mercurial > hg > Members > ryokka > HoareLogic

changeset 85:07b183a726f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 18 Jul 2020 10:32:43 +0900
parents 77798ab0e660
children dc667b21c1b0
files utilities.agda whileTestGears.agda whileTestGears1.agda whileTestPrim.agda
diffstat 4 files changed, 14 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/utilities.agda	Sat Jan 11 22:09:49 2020 +0900
+++ b/utilities.agda	Sat Jul 18 10:32:43 2020 +0900
@@ -4,7 +4,7 @@
 open import Function
 open import Data.Nat
 open import Data.Product
-open import Data.Bool hiding ( _≟_  ; _≤?_)
+open import Data.Bool  hiding ( _≟_ ) --  ; _≤?_)
 open import Level renaming ( suc to succ ; zero to Zero )
 open import Relation.Nullary using (¬_; Dec; yes; no)
 open import Relation.Binary.PropositionalEquality
--- a/whileTestGears.agda	Sat Jan 11 22:09:49 2020 +0900
+++ b/whileTestGears.agda	Sat Jul 18 10:32:43 2020 +0900
@@ -2,7 +2,7 @@
 
 open import Function
 open import Data.Nat
-open import Data.Bool hiding ( _≟_ ; _≤?_ ; _≤_ ; _<_)
+open import Data.Bool hiding ( _≟_ ) -- ; _≤?_ ; _≤_ ; _<_)
 open import Data.Product
 open import Level renaming ( suc to succ ; zero to Zero )
 open import Relation.Nullary using (¬_; Dec; yes; no)
--- a/whileTestGears1.agda	Sat Jan 11 22:09:49 2020 +0900
+++ b/whileTestGears1.agda	Sat Jul 18 10:32:43 2020 +0900
@@ -16,6 +16,13 @@
     vari : ℕ
 open Env
 
+whileTestS : { m : Level}  -> (c10 : ℕ) → (Code : Env -> Set m) -> Set m
+whileTestS c10 next = next (record {varn = c10 ; vari = 0} )
+
+whileTestS1 :  (c10 : ℕ) →  whileTestS c10 (λ e → ((varn e ≡ c10) /\ (vari e ≡ 0 )) )
+whileTestS1 c10 = record { pi1 = refl ; pi2 = refl }
+
+
 whileTest : {l : Level} {t : Set l} -> (c10 : ℕ) → (Code : Env -> t) -> t
 whileTest c10 next = next (record {varn = c10 ; vari = 0} )
 
--- a/whileTestPrim.agda	Sat Jan 11 22:09:49 2020 +0900
+++ b/whileTestPrim.agda	Sat Jul 18 10:32:43 2020 +0900
@@ -39,11 +39,11 @@
 
 program : ℕ → Comm
 program c10 = 
-    Seq ( PComm (λ env → record env {varn = c10}))
-    $ Seq ( PComm (λ env → record env {vari = 0}))
-    $ While (λ env → lt zero (varn env ) )
-      (Seq (PComm (λ env → record env {vari = ((vari env) + 1)} ))
-        $ PComm (λ env → record env {varn = ((varn env) - 1)} ))
+    Seq ( PComm (λ env → record env {varn = c10}))                     ---    n = c10 ;
+    $ Seq ( PComm (λ env → record env {vari = 0}))                     ---    i = 0 ;
+    $ While (λ env → lt zero (varn env ) )                             ---    while ( 0 < n ) {
+      (Seq (PComm (λ env → record env {vari = ((vari env) + 1)} ))     ---        i = i + 1
+        $ PComm (λ env → record env {varn = ((varn env) - 1)} ))       ---        n = n - 1 }
 
 simple : ℕ → Comm
 simple c10 =