Skip to content
Snippets Groups Projects
Commit de52d5d0 authored by Ralf Jung's avatar Ralf Jung
Browse files

bump GPFSL; std++ rename fix

parent 632c5f46
No related branches found
No related tags found
No related merge requests found
Pipeline #25057 passed
...@@ -16,7 +16,7 @@ This branch uses a proper weak memory model. ...@@ -16,7 +16,7 @@ This branch uses a proper weak memory model.
""" """
depends: [ depends: [
"coq-gpfsl" { (= "dev.2020-02-15.1.a9cd56f7") | (= "dev") } "coq-gpfsl" { (= "dev.2020-02-25.0.388769e1") | (= "dev") }
] ]
build: [make "-j%{jobs}%"] build: [make "-j%{jobs}%"]
......
...@@ -20,7 +20,7 @@ Section typing. ...@@ -20,7 +20,7 @@ Section typing.
iSpecialize ("HC" with "[]"); first done. iSpecialize ("HC" with "[]"); first done.
assert (args = of_val <$> argsv) as ->. assert (args = of_val <$> argsv) as ->.
{ clear -Hargs. induction Hargs as [|a av ?? [<-%of_to_val| ->] _ ->]=>//=. } { clear -Hargs. induction Hargs as [|a av ?? [<-%of_to_val| ->] _ ->]=>//=. }
rewrite -{3}(vec_to_list_of_list argsv). iApply ("HC" with "Hna HL HT"). rewrite -{3}(vec_to_list_to_vec argsv). iApply ("HC" with "Hna HL HT").
Qed. Qed.
Lemma type_cont argsb L1 (T' : vec val (length argsb) _) E L2 C T econt e2 kb : Lemma type_cont argsb L1 (T' : vec val (length argsb) _) E L2 C T econt e2 kb :
......
...@@ -681,7 +681,7 @@ Section type_util. ...@@ -681,7 +681,7 @@ Section type_util.
iSplit. iSplit.
- iIntros "H". iDestruct "H" as (vl) "[Hl Hown]". - iIntros "H". iDestruct "H" as (vl) "[Hl Hown]".
iDestruct (ty_size_eq with "Hown") as %<-. iDestruct (ty_size_eq with "Hown") as %<-.
iExists (list_to_vec vl). rewrite vec_to_list_of_list. iFrame. iExists (list_to_vec vl). rewrite vec_to_list_to_vec. iFrame.
- iIntros "H". iDestruct "H" as (vl) "[Hl Hown]". eauto with iFrame. - iIntros "H". iDestruct "H" as (vl) "[Hl Hown]". eauto with iFrame.
Qed. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment