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
e4b924f3
Commit
e4b924f3
authored
Nov 02, 2021
by
Michael Sammler
Browse files
Add evar_safe_vm_compute
parent
75053945
Pipeline
#57139
passed with stage
in 22 minutes and 10 seconds
Changes
2
Pipelines
16
Hide whitespace changes
Inline
Side-by-side
theories/lithium/base.v
View file @
e4b924f3
...
...
@@ -89,6 +89,19 @@ Ltac solve_sep_entails :=
end
)
;
eauto
with
iFrame
.
Lemma
tac_evar_safe_vm_compute
{
A
}
(
x
y
:
A
)
:
(
∀
z
,
y
=
z
→
x
=
z
)
→
x
=
y
.
Proof
.
naive_solver
.
Qed
.
(* vm_compute likes to mess with evars that it find in the goal so
evar_safe_vm_compute hides them. *)
Ltac
evar_safe_vm_compute
:
=
apply
tac_evar_safe_vm_compute
;
let
H
:
=
fresh
in
intros
?
H
;
vm_compute
;
apply
H
.
(*
The following tactics are currently not used.
...
...
theories/lithium/classes.v
View file @
e4b924f3
...
...
@@ -71,15 +71,14 @@ Arguments vm_compute_hint : simpl never.
Typeclasses
Opaque
vm_compute_hint
.
Program
Definition
vm_compute_hint_hint
{
Σ
A
B
}
(
f
:
A
→
option
B
)
x
a
:
(
∀
y
,
Some
x
=
y
→
f
a
=
y
)
→
f
a
=
Some
x
→
TacticHint
(
vm_compute_hint
(
Σ
:
=
Σ
)
f
a
)
:
=
λ
H
,
{|
tactic_hint_P
T
:
=
T
x
;
|}.
Next
Obligation
.
move
=>
????????.
iIntros
"HT"
.
iExists
_
.
iFrame
.
iPureIntro
.
naive_solver
.
Qed
.
Global
Hint
Extern
10
(
TacticHint
(
vm_compute_hint
_
_
))
=>
eapply
vm_compute_hint_hint
;
let
H
:
=
fresh
in
intros
?
H
;
vm_compute
;
apply
H
:
typeclass_instances
.
eapply
vm_compute_hint_hint
;
evar_safe_vm_compute
:
typeclass_instances
.
(** * [RelatedTo] *)
Class
RelatedTo
{
Σ
}
(
pat
:
iProp
Σ
)
:
Type
:
=
{
...
...
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