Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Fengmin Zhu
RefinedC
Commits
743e313b
Commit
743e313b
authored
Dec 02, 2020
by
Michael Sammler
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add missing proofs
parent
a7e4f15b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
52 additions
and
0 deletions
+52
-0
tutorial/proofs/t06_struct/generated_proof_argtest.v
tutorial/proofs/t06_struct/generated_proof_argtest.v
+27
-0
tutorial/proofs/t06_struct/generated_proof_getblue.v
tutorial/proofs/t06_struct/generated_proof_getblue.v
+25
-0
No files found.
tutorial/proofs/t06_struct/generated_proof_argtest.v
0 → 100644
View file @
743e313b
From
refinedc
.
typing
Require
Import
typing
.
From
refinedc
.
tutorial
.
t06_struct
Require
Import
generated_code
.
From
refinedc
.
tutorial
.
t06_struct
Require
Import
generated_spec
.
Set
Default
Proof
Using
"Type"
.
(* Generated from [tutorial/t06_struct.c]. *)
Section
proof_argtest
.
Context
`
{!
typeG
Σ
}
`
{!
globalG
Σ
}.
(* Typing proof for [argtest]. *)
Lemma
type_argtest
(
blue
getblue
:
loc
)
:
blue
◁ᵥ
blue
@
function_ptr
type_of_blue
-
∗
getblue
◁ᵥ
getblue
@
function_ptr
type_of_getblue
-
∗
typed_function
(
impl_argtest
blue
getblue
)
type_of_argtest
.
Proof
.
start_function
"argtest"
([]).
split_blocks
((
∅
)%
I
:
gmap
label
(
iProp
Σ
))
((
∅
)%
I
:
gmap
label
(
iProp
Σ
)).
-
repeat
liRStep
;
liShow
.
all
:
print_typesystem_goal
"argtest"
"#0"
.
Unshelve
.
all
:
sidecond_hook
;
prepare_sideconditions
;
normalize_and_simpl_goal
;
try
solve_goal
;
unsolved_sidecond_hook
.
all
:
print_sidecondition_goal
"argtest"
.
Qed
.
End
proof_argtest
.
tutorial/proofs/t06_struct/generated_proof_getblue.v
0 → 100644
View file @
743e313b
From
refinedc
.
typing
Require
Import
typing
.
From
refinedc
.
tutorial
.
t06_struct
Require
Import
generated_code
.
From
refinedc
.
tutorial
.
t06_struct
Require
Import
generated_spec
.
Set
Default
Proof
Using
"Type"
.
(* Generated from [tutorial/t06_struct.c]. *)
Section
proof_getblue
.
Context
`
{!
typeG
Σ
}
`
{!
globalG
Σ
}.
(* Typing proof for [getblue]. *)
Lemma
type_getblue
:
⊢
typed_function
impl_getblue
type_of_getblue
.
Proof
.
start_function
"getblue"
([[
r
g
]
b
])
=>
arg_b
.
split_blocks
((
∅
)%
I
:
gmap
label
(
iProp
Σ
))
((
∅
)%
I
:
gmap
label
(
iProp
Σ
)).
-
repeat
liRStep
;
liShow
.
all
:
print_typesystem_goal
"getblue"
"#0"
.
Unshelve
.
all
:
sidecond_hook
;
prepare_sideconditions
;
normalize_and_simpl_goal
;
try
solve_goal
;
unsolved_sidecond_hook
.
all
:
print_sidecondition_goal
"getblue"
.
Qed
.
End
proof_getblue
.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment