Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
L
lambda-rust
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
List
Board
Labels
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Iris
lambda-rust
Commits
1843d0c1
Commit
1843d0c1
authored
Feb 28, 2018
by
Janno
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove leftover comments.
parent
42a8dc3a
Pipeline
#7112
passed with stage
in 15 minutes and 45 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
3 deletions
+0
-3
tactics.v
theories/lang/tactics.v
+0
-3
No files found.
theories/lang/tactics.v
View file @
1843d0c1
...
...
@@ -172,7 +172,6 @@ Ltac solve_closed :=
match
goal
with
|
|-
Closed
?
X
?
e
=>
let
e
'
:=
W
.
of_expr
e
in
change
(
Closed
X
(
W
.
to_expr
e
'
))
;
(
*
apply
W
.
is_closed_correct
;
vm_compute
;
exact
I
*
)
apply
W
.
is_closed_correct
;
exact
(
I
<:
W
.
is_closed
X
e
'
)
end
.
Hint
Extern
0
(
Closed
_
_
)
=>
solve_closed
:
typeclass_instances
.
...
...
@@ -190,7 +189,6 @@ Ltac solve_to_val :=
|
|-
is_Some
(
to_val
?
e
)
=>
let
e
'
:=
W
.
of_expr
e
in
change
(
is_Some
(
to_val
(
W
.
to_expr
e
'
)))
;
apply
W
.
to_val_is_Some
,
(
bool_decide_unpack
_
)
;
(
*
vm_compute
;
exact
I
*
)
match
goal
with
[
|-
Is_true
(
@
bool_decide
?
P
?
dec
)]
=>
exact
(
I
<:
Is_true
(
@
bool_decide
P
dec
))
end
...
...
@@ -202,7 +200,6 @@ Ltac solve_atomic :=
match
goal
with
|
|-
Atomic
?
s
?
e
=>
let
e
'
:=
W
.
of_expr
e
in
change
(
Atomic
s
(
W
.
to_expr
e
'
))
;
(
*
apply
W
.
is_atomic_correct
;
vm_compute
;
exact
I
*
)
apply
W
.
is_atomic_correct
;
exact
(
I
<:
W
.
is_atomic
e
'
)
end
.
Hint
Extern
0
(
Atomic
_
_
)
=>
solve_atomic
:
typeclass_instances
.
...
...
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