Skip to content
Snippets Groups Projects
Commit 479ac648 authored by Mackie Loeffel's avatar Mackie Loeffel
Browse files

added some comments

parent bc899afb
No related branches found
No related tags found
No related merge requests found
Pipeline #
...@@ -2,6 +2,12 @@ This project was built with coq version 8.7.2. ...@@ -2,6 +2,12 @@ This project was built with coq version 8.7.2.
This project uses Autosubst (https://github.com/uds-psl/autosubst). It must be installed from the coq86-devel branch as described in the README of Autosubst. This project uses Autosubst (https://github.com/uds-psl/autosubst). It must be installed from the coq86-devel branch as described in the README of Autosubst.
For inversion the inverts ... as tactic from lib/LibTactics.v is used.
Naming convention:
GQM-Formulas: A,B,C..., sometimes f,g,...
Context: c
To build the project run To build the project run
$ make $ make
......
...@@ -69,6 +69,7 @@ Lemma lemma_A_3 : forall A, (|-- [A]A <<->> [A]A). ...@@ -69,6 +69,7 @@ Lemma lemma_A_3 : forall A, (|-- [A]A <<->> [A]A).
Proof. Proof.
move => A. move => A.
hSplit; first by apply: gqm_id. hSplit; first by apply: gqm_id.
(* this direction could also be proved by gqm_id, but we what to check, that the proof from the paper works as well *)
(* (1) *) (* (1) *)
have H1 := (gqm_Aglob (A._[ren_ (0 .: (+2))]) (Var 0)). have H1 := (gqm_Aglob (A._[ren_ (0 .: (+2))]) (Var 0)).
asimpl in H1. asimpl in H1.
......
...@@ -32,6 +32,7 @@ Proof. ...@@ -32,6 +32,7 @@ Proof.
move => c A. move => c A.
split. split.
- elim; clear c A => c A. - elim; clear c A => c A.
(* the inverts and inverts ... as tactics are from lib/LibTactics.v *)
+ elim: c A; first by move => ? Hi; inverts Hi. + elim: c A; first by move => ? Hi; inverts Hi.
move => f l IH A Hi /=. move => f l IH A Hi /=.
inverts Hi as. inverts Hi as.
......
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