syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Tighten

This commit is contained in:
Tony Garnock-Jones 2018-12-07 11:06:08 +00:00
parent 8f20ae7a48
commit cbbd6ffd0c
1 changed files with 6 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
quoting.v
View File

@ -77,24 +77,14 @@ Fixpoint pat_ind'
p
: P p.
Proof.
induction p; auto.
apply PRecord.
apply IHp; try assumption.
induction l; [ apply Forall_nil | ].
apply Forall_cons; [ apply pat_ind'; try assumption | ].
apply IHl; apply IHp.
apply PSeq.
induction l; [ apply Forall_nil | ].
apply Forall_cons; [ apply pat_ind'; try assumption | ].
apply IHl.
induction p; auto; [ apply PRecord; [ apply IHp | ] | apply PSeq ];
try solve [ induction l; [ apply Forall_nil | ];
apply Forall_cons; [ apply pat_ind'; try assumption | ];
apply IHl ].
Defined.
Lemma Forall_map_map_id :
forall ps,
Forall (fun p : pat => uqp (qp p) = p) ps ->
(map uqp (map qp ps)) = ps.
Lemma Forall_map_map_id : forall ps, Forall (fun p : pat => uqp (qp p) = p) ps ->
(map uqp (map qp ps)) = ps.
Proof.
intros; rewrite map_map; induction H; [ reflexivity | ].
simpl; rewrite IHForall; rewrite H; reflexivity.