Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
concordium
smart-contract-interactions
Commits
458189b2
Commit
458189b2
authored
Oct 28, 2019
by
Jakob Botsch Nielsen
Browse files
Simplify a couple of proofs
parent
8016c378
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/BoundedN.v
View file @
458189b2
...
...
@@ -245,7 +245,7 @@ Module BoundedN.
specialize
(
x_bound
(
or_introl
eq_refl
)).
destruct
x_bound
as
[
useless
x_bound
];
clear
useless
.
cbn
in
x_bound
.
destruct
(
of_nat
x
)
eqn
:
ofnatx
.
all
:
cycle
1.
destruct
(
of_nat
x
)
eqn
:
ofnatx
;
cycle
1.
apply
of_nat_none
in
ofnatx
.
lia
.
constructor
.
...
...
theories/LocalBlockchain.v
View file @
458189b2
...
...
@@ -256,11 +256,8 @@ Section ExecuteActions.
destruct
(
env_contract_states
_
_
)
as
[
prev_state
|
]
eqn
:
prev_state_eq
;
[
|
cbn
in
*
;
congruence
].
cbn
-
[
lc_to_env
]
in
*
.
destruct
(
wc_receive
wc
_
_
_
_
)
eqn
:
receive
;
destruct
(
wc_receive
wc
_
_
_
_
)
as
[[
new_state
resp_acts
]
|
]
eqn
:
receive
;
[
|
cbn
in
*
;
congruence
].
match
goal
with
|
[
p
:
SerializedValue
*
list
ActionBody
|-
_
]
=>
destruct
p
as
[
new_state
resp_acts
]
end
.
Hint
Resolve
gtb_le
ltb_ge
:
core
.
apply
(
eval_call
from
to
amount
wc
msg
prev_state
new_state
resp_acts
);
try
solve
[
cbn
in
*
;
auto
;
congruence
].
...
...
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