Skip to content

Commit

Permalink
add comments in some example files.
Browse files Browse the repository at this point in the history
  • Loading branch information
yutakang committed Sep 5, 2024
1 parent 5edc2d7 commit 731726e
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 0 deletions.
1 change: 1 addition & 0 deletions Example/Abduction_Example/TIP_prop_06.thy
Original file line number Diff line number Diff line change
Expand Up @@ -30,6 +30,7 @@ fun t2 :: "Nat => Nat => Nat" where
"t2 (Z) z = z"
| "t2 (S z2) z = S (t2 z2 z)"

(*On a MacBook Pro 2021 or later, this takes about 30 minutes.*)
prove property0: "((length (rev (x y z))) = (t2 (length y) (length z)))"

end
1 change: 1 addition & 0 deletions Example/Abduction_Example/TIP_prop_11.thy
Original file line number Diff line number Diff line change
Expand Up @@ -20,6 +20,7 @@ fun rev :: "'a list => 'a list" where
"rev (nil2) = nil2"
| "rev (cons2 z xs) = x (rev xs) (cons2 z (nil2))"

(*On a MacBook Pro 2021 or later, this takes about 10 minutes.*)
prove property0 :
"((rev (x (rev y) (rev z))) = (x z y))"

Expand Down

0 comments on commit 731726e

Please sign in to comment.