Library Paco.paco17_upto
Require Export Program.Basics. Open Scope program_scope.
Require Import paco17.
Set Implicit Arguments.
Section Respectful17.
Variable T0 : Type.
Variable T1 : forall (x0: @T0), Type.
Variable T2 : forall (x0: @T0) (x1: @T1 x0), Type.
Variable T3 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1), Type.
Variable T4 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2), Type.
Variable T5 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3), Type.
Variable T6 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4), Type.
Variable T7 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5), Type.
Variable T8 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6), Type.
Variable T9 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7), Type.
Variable T10 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8), Type.
Variable T11 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9), Type.
Variable T12 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10), Type.
Variable T13 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11), Type.
Variable T14 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (x13: @T13 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12), Type.
Variable T15 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (x13: @T13 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (x14: @T14 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13), Type.
Variable T16 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (x13: @T13 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (x14: @T14 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13) (x15: @T15 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14), Type.
Local Notation rel := (rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16).
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone17 gf.
Inductive sound17 (clo: rel -> rel): Prop :=
| sound17_intro
(MON: monotone17 clo)
(SOUND:
forall r (PFIX: r <17= gf (clo r)),
r <17= paco17 gf bot17)
.
Hint Constructors sound17.
Structure respectful17 (clo: rel -> rel) : Prop :=
respectful17_intro {
MON: monotone17 clo;
RESPECTFUL:
forall l r (LE: l <17= r) (GF: l <17= gf r),
clo l <17= gf (clo r);
}.
Hint Constructors respectful17.
Inductive gres17 (r: rel) e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16 : Prop :=
| gres17_intro
clo
(RES: respectful17 clo)
(CLO: clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16)
.
Hint Constructors gres17.
Lemma gfclo17_mon: forall clo, sound17 clo -> monotone17 (compose gf clo).
Proof.
intros; destruct H; red; intros.
eapply gf_mon; [apply IN|intros; eapply MON0; [apply PR|apply LE]].
Qed.
Hint Resolve gfclo17_mon : paco.
Lemma sound17_is_gf: forall clo (UPTO: sound17 clo),
paco17 (compose gf clo) bot17 <17= paco17 gf bot17.
Proof.
intros. _punfold PR; [|apply gfclo17_mon, UPTO]. edestruct UPTO.
eapply (SOUND (paco17 (compose gf clo) bot17)).
- intros. _punfold PR0; [|apply gfclo17_mon, UPTO].
eapply (gfclo17_mon UPTO); [apply PR0| intros; destruct PR1; [apply H|destruct H]].
- pfold. apply PR.
Qed.
Lemma respectful17_is_sound17: respectful17 <1= sound17.
Proof.
intro clo.
set (rclo := fix rclo clo n (r: rel) :=
match n with
| 0 => r
| S n' => rclo clo n' r \17/ clo (rclo clo n' r)
end).
intros. destruct PR. econstructor; [apply MON0|].
intros. set (rr e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16 := exists n, rclo clo n r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16).
assert (rr x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16) by (exists 0; apply PR); clear PR.
cut (forall n, rclo clo n r <17= gf (rclo clo (S n) r)).
{ intro X; revert x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 H; pcofix CIH; intros.
unfold rr in *; destruct H0.
pfold. eapply gf_mon.
- apply X. apply H.
- intros. right. apply CIH. exists (S x). apply PR.
}
induction n; intros.
- eapply gf_mon.
+ clear RESPECTFUL0. eapply PFIX, PR.
+ intros. right. eapply PR0.
- destruct PR.
+ eapply gf_mon; [eapply IHn, H0|]. intros. left. apply PR.
+ eapply gf_mon; [eapply RESPECTFUL0; [|apply IHn|]|]; intros.
* left; apply PR.
* apply H0.
* right; apply PR.
Qed.
Lemma respectful17_compose
clo0 clo1
(RES0: respectful17 clo0)
(RES1: respectful17 clo1):
respectful17 (compose clo0 clo1).
Proof.
intros. destruct RES0, RES1.
econstructor.
- repeat intro. eapply MON0; [apply IN|].
intros. eapply MON1; [apply PR|apply LE].
- intros. eapply RESPECTFUL0; [| |apply PR].
+ intros. eapply MON1; [apply PR0|apply LE].
+ intros. eapply RESPECTFUL1; [apply LE| apply GF| apply PR0].
Qed.
Lemma grespectful17_mon: monotone17 gres17.
Proof.
red. intros.
destruct IN; destruct RES; exists clo; [|eapply MON0; [eapply CLO| eapply LE]].
constructor; [eapply MON0|].
intros. eapply RESPECTFUL0; [apply LE0|apply GF|apply PR].
Qed.
Lemma grespectful17_respectful17: respectful17 gres17.
Proof.
econstructor; [apply grespectful17_mon|intros].
destruct PR; destruct RES; eapply gf_mon with (r:=clo r).
eapply RESPECTFUL0; [apply LE|apply GF|apply CLO].
intros. econstructor; [constructor; [apply MON0|apply RESPECTFUL0]|apply PR].
Qed.
Lemma gfgres17_mon: monotone17 (compose gf gres17).
Proof.
destruct grespectful17_respectful17.
unfold monotone17. intros. eapply gf_mon; [eapply IN|].
intros. eapply MON0;[apply PR|apply LE].
Qed.
Hint Resolve gfgres17_mon : paco.
Lemma grespectful17_greatest: forall clo (RES: respectful17 clo), clo <18= gres17.
Proof. intros. econstructor;[apply RES|apply PR]. Qed.
Lemma grespectful17_incl: forall r, r <17= gres17 r.
Proof.
intros; eexists (fun x => x).
- econstructor.
+ red; intros; apply LE, IN.
+ intros; apply GF, PR0.
- apply PR.
Qed.
Hint Resolve grespectful17_incl.
Lemma grespectful17_compose: forall clo (RES: respectful17 clo) r,
clo (gres17 r) <17= gres17 r.
Proof.
intros; eapply grespectful17_greatest with (clo := compose clo gres17); [|apply PR].
apply respectful17_compose; [apply RES|apply grespectful17_respectful17].
Qed.
Lemma grespectful17_incl_rev: forall r,
gres17 (paco17 (compose gf gres17) r) <17= paco17 (compose gf gres17) r.
Proof.
intro r; pcofix CIH; intros; pfold.
eapply gf_mon, grespectful17_compose, grespectful17_respectful17.
destruct grespectful17_respectful17; eapply RESPECTFUL0, PR; intros; [apply grespectful17_incl; right; apply CIH, grespectful17_incl, PR0|].
_punfold PR0; [|apply gfgres17_mon].
eapply gfgres17_mon; [apply PR0|].
intros; destruct PR1.
- left. eapply paco17_mon; [apply H| apply CIH0].
- right. eapply CIH0, H.
Qed.
Inductive rclo17 clo (r: rel): rel :=
| rclo17_incl
e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
(R: r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16):
@rclo17 clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
| rclo17_step'
r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
(R': r' <17= rclo17 clo r)
(CLOR':clo r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16):
@rclo17 clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
| rclo17_gf
r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
(R': r' <17= rclo17 clo r)
(CLOR':@gf r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16):
@rclo17 clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
.
Lemma rclo17_mon clo:
monotone17 (rclo17 clo).
Proof.
repeat intro. induction IN.
- econstructor 1. apply LE, R.
- econstructor 2; [intros; eapply H, PR| eapply CLOR'].
- econstructor 3; [intros; eapply H, PR| eapply CLOR'].
Qed.
Hint Resolve rclo17_mon: paco.
Lemma rclo17_base
clo
(MON: monotone17 clo):
clo <18= rclo17 clo.
Proof.
intros. econstructor 2; [intros; apply PR0|].
eapply MON; [apply PR|intros; constructor; apply PR0].
Qed.
Lemma rclo17_step
(clo: rel -> rel) r:
clo (rclo17 clo r) <17= rclo17 clo r.
Proof.
intros. econstructor 2; [intros; apply PR0|apply PR].
Qed.
Lemma rclo17_rclo17
clo r
(MON: monotone17 clo):
rclo17 clo (rclo17 clo r) <17= rclo17 clo r.
Proof.
intros. induction PR.
- eapply R.
- econstructor 2; [eapply H | eapply CLOR'].
- econstructor 3; [eapply H | eapply CLOR'].
Qed.
Structure weak_respectful17 (clo: rel -> rel) : Prop :=
weak_respectful17_intro {
WEAK_MON: monotone17 clo;
WEAK_RESPECTFUL:
forall l r (LE: l <17= r) (GF: l <17= gf r),
clo l <17= gf (rclo17 clo r);
}.
Hint Constructors weak_respectful17.
Lemma weak_respectful17_respectful17
clo (RES: weak_respectful17 clo):
respectful17 (rclo17 clo).
Proof.
inversion RES. econstructor; [eapply rclo17_mon|]. intros.
induction PR; intros.
- eapply gf_mon; [apply GF, R|]. intros.
apply rclo17_incl. apply PR.
- eapply gf_mon.
+ eapply WEAK_RESPECTFUL0; [|apply H|apply CLOR'].
intros. eapply rclo17_mon; [apply R', PR|apply LE].
+ intros. apply rclo17_rclo17;[apply WEAK_MON0|apply PR].
- eapply gf_mon; [apply CLOR'|].
intros. eapply rclo17_mon; [apply R', PR| apply LE].
Qed.
Lemma upto17_init:
paco17 (compose gf gres17) bot17 <17= paco17 gf bot17.
Proof.
apply sound17_is_gf.
apply respectful17_is_sound17.
apply grespectful17_respectful17.
Qed.
Lemma upto17_final:
paco17 gf <18= paco17 (compose gf gres17).
Proof.
pcofix CIH. intros. _punfold PR; [|apply gf_mon]. pfold.
eapply gf_mon; [|apply grespectful17_incl].
eapply gf_mon; [apply PR|]. intros. right.
inversion PR0; [apply CIH, H | apply CIH0, H].
Qed.
Lemma upto17_step
r clo (RES: weak_respectful17 clo):
clo (paco17 (compose gf gres17) r) <17= paco17 (compose gf gres17) r.
Proof.
intros. apply grespectful17_incl_rev.
assert (RES' := weak_respectful17_respectful17 RES).
eapply grespectful17_greatest; [apply RES'|].
eapply rclo17_base; [apply RES|].
inversion RES. apply PR.
Qed.
Lemma upto17_step_under
r clo (RES: weak_respectful17 clo):
clo (gres17 r) <17= gres17 r.
Proof.
intros. apply weak_respectful17_respectful17 in RES.
eapply grespectful17_compose; [apply RES|].
econstructor 2; [intros; constructor 1; apply PR0 | apply PR].
Qed.
End Respectful17.
Lemma grespectful17_impl T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 (gf gf': rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 -> rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16) r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16
(PR: gres17 gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16)
(EQ: forall r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16, gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 <-> gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16):
gres17 gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16.
Proof.
intros. destruct PR. econstructor; [|apply CLO].
destruct RES. econstructor; [apply MON0|].
intros. eapply EQ. eapply RESPECTFUL0; [apply LE| |apply PR].
intros. eapply EQ. apply GF, PR0.
Qed.
Lemma grespectful17_iff T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 (gf gf': rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 -> rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16) r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16
(EQ: forall r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16, gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 <-> gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16):
gres17 gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 <-> gres17 gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16.
Proof.
split; intros.
- eapply grespectful17_impl; [apply H | apply EQ].
- eapply grespectful17_impl; [apply H | split; apply EQ].
Qed.
Hint Constructors sound17.
Hint Constructors respectful17.
Hint Constructors gres17.
Hint Resolve gfclo17_mon : paco.
Hint Resolve gfgres17_mon : paco.
Hint Resolve grespectful17_incl.
Hint Resolve rclo17_mon: paco.
Hint Constructors weak_respectful17.
Ltac pupto17_init := eapply upto17_init; [eauto with paco|].
Ltac pupto17_final := first [eapply upto17_final; [eauto with paco|] | eapply grespectful17_incl].
Ltac pupto17 H := first [eapply upto17_step|eapply upto17_step_under]; [|eapply H|]; [eauto with paco|].
Require Import paco17.
Set Implicit Arguments.
Section Respectful17.
Variable T0 : Type.
Variable T1 : forall (x0: @T0), Type.
Variable T2 : forall (x0: @T0) (x1: @T1 x0), Type.
Variable T3 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1), Type.
Variable T4 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2), Type.
Variable T5 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3), Type.
Variable T6 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4), Type.
Variable T7 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5), Type.
Variable T8 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6), Type.
Variable T9 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7), Type.
Variable T10 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8), Type.
Variable T11 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9), Type.
Variable T12 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10), Type.
Variable T13 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11), Type.
Variable T14 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (x13: @T13 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12), Type.
Variable T15 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (x13: @T13 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (x14: @T14 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13), Type.
Variable T16 : forall (x0: @T0) (x1: @T1 x0) (x2: @T2 x0 x1) (x3: @T3 x0 x1 x2) (x4: @T4 x0 x1 x2 x3) (x5: @T5 x0 x1 x2 x3 x4) (x6: @T6 x0 x1 x2 x3 x4 x5) (x7: @T7 x0 x1 x2 x3 x4 x5 x6) (x8: @T8 x0 x1 x2 x3 x4 x5 x6 x7) (x9: @T9 x0 x1 x2 x3 x4 x5 x6 x7 x8) (x10: @T10 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9) (x11: @T11 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) (x12: @T12 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (x13: @T13 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (x14: @T14 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13) (x15: @T15 x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14), Type.
Local Notation rel := (rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16).
Variable gf: rel -> rel.
Hypothesis gf_mon: monotone17 gf.
Inductive sound17 (clo: rel -> rel): Prop :=
| sound17_intro
(MON: monotone17 clo)
(SOUND:
forall r (PFIX: r <17= gf (clo r)),
r <17= paco17 gf bot17)
.
Hint Constructors sound17.
Structure respectful17 (clo: rel -> rel) : Prop :=
respectful17_intro {
MON: monotone17 clo;
RESPECTFUL:
forall l r (LE: l <17= r) (GF: l <17= gf r),
clo l <17= gf (clo r);
}.
Hint Constructors respectful17.
Inductive gres17 (r: rel) e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16 : Prop :=
| gres17_intro
clo
(RES: respectful17 clo)
(CLO: clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16)
.
Hint Constructors gres17.
Lemma gfclo17_mon: forall clo, sound17 clo -> monotone17 (compose gf clo).
Proof.
intros; destruct H; red; intros.
eapply gf_mon; [apply IN|intros; eapply MON0; [apply PR|apply LE]].
Qed.
Hint Resolve gfclo17_mon : paco.
Lemma sound17_is_gf: forall clo (UPTO: sound17 clo),
paco17 (compose gf clo) bot17 <17= paco17 gf bot17.
Proof.
intros. _punfold PR; [|apply gfclo17_mon, UPTO]. edestruct UPTO.
eapply (SOUND (paco17 (compose gf clo) bot17)).
- intros. _punfold PR0; [|apply gfclo17_mon, UPTO].
eapply (gfclo17_mon UPTO); [apply PR0| intros; destruct PR1; [apply H|destruct H]].
- pfold. apply PR.
Qed.
Lemma respectful17_is_sound17: respectful17 <1= sound17.
Proof.
intro clo.
set (rclo := fix rclo clo n (r: rel) :=
match n with
| 0 => r
| S n' => rclo clo n' r \17/ clo (rclo clo n' r)
end).
intros. destruct PR. econstructor; [apply MON0|].
intros. set (rr e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16 := exists n, rclo clo n r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16).
assert (rr x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16) by (exists 0; apply PR); clear PR.
cut (forall n, rclo clo n r <17= gf (rclo clo (S n) r)).
{ intro X; revert x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 H; pcofix CIH; intros.
unfold rr in *; destruct H0.
pfold. eapply gf_mon.
- apply X. apply H.
- intros. right. apply CIH. exists (S x). apply PR.
}
induction n; intros.
- eapply gf_mon.
+ clear RESPECTFUL0. eapply PFIX, PR.
+ intros. right. eapply PR0.
- destruct PR.
+ eapply gf_mon; [eapply IHn, H0|]. intros. left. apply PR.
+ eapply gf_mon; [eapply RESPECTFUL0; [|apply IHn|]|]; intros.
* left; apply PR.
* apply H0.
* right; apply PR.
Qed.
Lemma respectful17_compose
clo0 clo1
(RES0: respectful17 clo0)
(RES1: respectful17 clo1):
respectful17 (compose clo0 clo1).
Proof.
intros. destruct RES0, RES1.
econstructor.
- repeat intro. eapply MON0; [apply IN|].
intros. eapply MON1; [apply PR|apply LE].
- intros. eapply RESPECTFUL0; [| |apply PR].
+ intros. eapply MON1; [apply PR0|apply LE].
+ intros. eapply RESPECTFUL1; [apply LE| apply GF| apply PR0].
Qed.
Lemma grespectful17_mon: monotone17 gres17.
Proof.
red. intros.
destruct IN; destruct RES; exists clo; [|eapply MON0; [eapply CLO| eapply LE]].
constructor; [eapply MON0|].
intros. eapply RESPECTFUL0; [apply LE0|apply GF|apply PR].
Qed.
Lemma grespectful17_respectful17: respectful17 gres17.
Proof.
econstructor; [apply grespectful17_mon|intros].
destruct PR; destruct RES; eapply gf_mon with (r:=clo r).
eapply RESPECTFUL0; [apply LE|apply GF|apply CLO].
intros. econstructor; [constructor; [apply MON0|apply RESPECTFUL0]|apply PR].
Qed.
Lemma gfgres17_mon: monotone17 (compose gf gres17).
Proof.
destruct grespectful17_respectful17.
unfold monotone17. intros. eapply gf_mon; [eapply IN|].
intros. eapply MON0;[apply PR|apply LE].
Qed.
Hint Resolve gfgres17_mon : paco.
Lemma grespectful17_greatest: forall clo (RES: respectful17 clo), clo <18= gres17.
Proof. intros. econstructor;[apply RES|apply PR]. Qed.
Lemma grespectful17_incl: forall r, r <17= gres17 r.
Proof.
intros; eexists (fun x => x).
- econstructor.
+ red; intros; apply LE, IN.
+ intros; apply GF, PR0.
- apply PR.
Qed.
Hint Resolve grespectful17_incl.
Lemma grespectful17_compose: forall clo (RES: respectful17 clo) r,
clo (gres17 r) <17= gres17 r.
Proof.
intros; eapply grespectful17_greatest with (clo := compose clo gres17); [|apply PR].
apply respectful17_compose; [apply RES|apply grespectful17_respectful17].
Qed.
Lemma grespectful17_incl_rev: forall r,
gres17 (paco17 (compose gf gres17) r) <17= paco17 (compose gf gres17) r.
Proof.
intro r; pcofix CIH; intros; pfold.
eapply gf_mon, grespectful17_compose, grespectful17_respectful17.
destruct grespectful17_respectful17; eapply RESPECTFUL0, PR; intros; [apply grespectful17_incl; right; apply CIH, grespectful17_incl, PR0|].
_punfold PR0; [|apply gfgres17_mon].
eapply gfgres17_mon; [apply PR0|].
intros; destruct PR1.
- left. eapply paco17_mon; [apply H| apply CIH0].
- right. eapply CIH0, H.
Qed.
Inductive rclo17 clo (r: rel): rel :=
| rclo17_incl
e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
(R: r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16):
@rclo17 clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
| rclo17_step'
r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
(R': r' <17= rclo17 clo r)
(CLOR':clo r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16):
@rclo17 clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
| rclo17_gf
r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
(R': r' <17= rclo17 clo r)
(CLOR':@gf r' e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16):
@rclo17 clo r e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16
.
Lemma rclo17_mon clo:
monotone17 (rclo17 clo).
Proof.
repeat intro. induction IN.
- econstructor 1. apply LE, R.
- econstructor 2; [intros; eapply H, PR| eapply CLOR'].
- econstructor 3; [intros; eapply H, PR| eapply CLOR'].
Qed.
Hint Resolve rclo17_mon: paco.
Lemma rclo17_base
clo
(MON: monotone17 clo):
clo <18= rclo17 clo.
Proof.
intros. econstructor 2; [intros; apply PR0|].
eapply MON; [apply PR|intros; constructor; apply PR0].
Qed.
Lemma rclo17_step
(clo: rel -> rel) r:
clo (rclo17 clo r) <17= rclo17 clo r.
Proof.
intros. econstructor 2; [intros; apply PR0|apply PR].
Qed.
Lemma rclo17_rclo17
clo r
(MON: monotone17 clo):
rclo17 clo (rclo17 clo r) <17= rclo17 clo r.
Proof.
intros. induction PR.
- eapply R.
- econstructor 2; [eapply H | eapply CLOR'].
- econstructor 3; [eapply H | eapply CLOR'].
Qed.
Structure weak_respectful17 (clo: rel -> rel) : Prop :=
weak_respectful17_intro {
WEAK_MON: monotone17 clo;
WEAK_RESPECTFUL:
forall l r (LE: l <17= r) (GF: l <17= gf r),
clo l <17= gf (rclo17 clo r);
}.
Hint Constructors weak_respectful17.
Lemma weak_respectful17_respectful17
clo (RES: weak_respectful17 clo):
respectful17 (rclo17 clo).
Proof.
inversion RES. econstructor; [eapply rclo17_mon|]. intros.
induction PR; intros.
- eapply gf_mon; [apply GF, R|]. intros.
apply rclo17_incl. apply PR.
- eapply gf_mon.
+ eapply WEAK_RESPECTFUL0; [|apply H|apply CLOR'].
intros. eapply rclo17_mon; [apply R', PR|apply LE].
+ intros. apply rclo17_rclo17;[apply WEAK_MON0|apply PR].
- eapply gf_mon; [apply CLOR'|].
intros. eapply rclo17_mon; [apply R', PR| apply LE].
Qed.
Lemma upto17_init:
paco17 (compose gf gres17) bot17 <17= paco17 gf bot17.
Proof.
apply sound17_is_gf.
apply respectful17_is_sound17.
apply grespectful17_respectful17.
Qed.
Lemma upto17_final:
paco17 gf <18= paco17 (compose gf gres17).
Proof.
pcofix CIH. intros. _punfold PR; [|apply gf_mon]. pfold.
eapply gf_mon; [|apply grespectful17_incl].
eapply gf_mon; [apply PR|]. intros. right.
inversion PR0; [apply CIH, H | apply CIH0, H].
Qed.
Lemma upto17_step
r clo (RES: weak_respectful17 clo):
clo (paco17 (compose gf gres17) r) <17= paco17 (compose gf gres17) r.
Proof.
intros. apply grespectful17_incl_rev.
assert (RES' := weak_respectful17_respectful17 RES).
eapply grespectful17_greatest; [apply RES'|].
eapply rclo17_base; [apply RES|].
inversion RES. apply PR.
Qed.
Lemma upto17_step_under
r clo (RES: weak_respectful17 clo):
clo (gres17 r) <17= gres17 r.
Proof.
intros. apply weak_respectful17_respectful17 in RES.
eapply grespectful17_compose; [apply RES|].
econstructor 2; [intros; constructor 1; apply PR0 | apply PR].
Qed.
End Respectful17.
Lemma grespectful17_impl T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 (gf gf': rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 -> rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16) r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16
(PR: gres17 gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16)
(EQ: forall r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16, gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 <-> gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16):
gres17 gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16.
Proof.
intros. destruct PR. econstructor; [|apply CLO].
destruct RES. econstructor; [apply MON0|].
intros. eapply EQ. eapply RESPECTFUL0; [apply LE| |apply PR].
intros. eapply EQ. apply GF, PR0.
Qed.
Lemma grespectful17_iff T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 (gf gf': rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16 -> rel17 T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16) r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16
(EQ: forall r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16, gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 <-> gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16):
gres17 gf r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 <-> gres17 gf' r x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16.
Proof.
split; intros.
- eapply grespectful17_impl; [apply H | apply EQ].
- eapply grespectful17_impl; [apply H | split; apply EQ].
Qed.
Hint Constructors sound17.
Hint Constructors respectful17.
Hint Constructors gres17.
Hint Resolve gfclo17_mon : paco.
Hint Resolve gfgres17_mon : paco.
Hint Resolve grespectful17_incl.
Hint Resolve rclo17_mon: paco.
Hint Constructors weak_respectful17.
Ltac pupto17_init := eapply upto17_init; [eauto with paco|].
Ltac pupto17_final := first [eapply upto17_final; [eauto with paco|] | eapply grespectful17_incl].
Ltac pupto17 H := first [eapply upto17_step|eapply upto17_step_under]; [|eapply H|]; [eauto with paco|].