Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Iris
RefinedC
Commits
eeb6411b
Commit
eeb6411b
authored
Nov 24, 2021
by
Michael Sammler
Browse files
add RETURN_MARKER back
parent
067c97c6
Pipeline
#57790
passed with stage
in 11 minutes and 38 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/typing/automation.v
View file @
eeb6411b
...
...
@@ -181,7 +181,7 @@ Ltac liRIntroduceTypedStmt :=
let
HQ
:
=
fresh
"Q"
in
let
HR
:
=
fresh
"R"
in
pose
(
HQ
:
=
(
CODE_MARKER
Q
))
;
pose
(
HR
:
=
(
L
ET
_ID
R
))
;
pose
(
HR
:
=
(
R
ET
URN_MARKER
R
))
;
change_no_check
(@
envs_entails
PROP
Δ
(@
typed_stmt
Σ
tG
s
fn
ls
HR
HQ
))
;
iEval
(
simpl
)
(* To simplify f_init *)
end
...
...
theories/typing/automation/proof_state.v
View file @
eeb6411b
...
...
@@ -21,6 +21,11 @@ Arguments CODE_MARKER : simpl never.
Ltac
unfold_code_marker_and_compute_map_lookup
:
=
unfold
CODE_MARKER
in
*
;
compute_map_lookup
.
Definition
RETURN_MARKER
`
{!
typeG
Σ
}
(
R
:
val
→
mtype
→
iProp
Σ
)
:
val
→
mtype
→
iProp
Σ
:
=
R
.
Notation
"'HIDDEN'"
:
=
(
RETURN_MARKER
_
)
(
only
printing
).
(* simplify RETURN_MARKER as soon as it is applied enough in the goal *)
Arguments
RETURN_MARKER
_
_
_
_
_
/.
(** * Tactics for manipulating location information *)
Ltac
get_loc_info
cont
:
=
...
...
@@ -92,6 +97,7 @@ Ltac prepare_sideconditions :=
repeat
match
goal
with
|
H
:
BLOCK_PRECOND
_
_
|-
_
=>
clear
H
end
;
(* get rid of Q *)
repeat
match
goal
with
|
H
:
=
CODE_MARKER
_
|-
_
=>
clear
H
end
;
repeat
match
goal
with
|
H
:
=
RETURN_MARKER
_
|-
_
=>
clear
H
end
;
clear_unused_vars
.
Ltac
solve_goal_prepare_tac
::
=
...
...
Write
Preview
Supports
Markdown
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