Commit 576860d0 authored by David Swasey's avatar David Swasey

Merge branch 'master' of git.fp.mpi-sws.org:nowbook

parents 9443b015 1416310b
......@@ -99,15 +99,6 @@ Module WorldProp (Res : PCM_T) : WORLD_PROP Res.
Definition Props := FProp PreProp.
Definition Wld := (nat -f> PreProp).
(* Establish the isomorphism (FIXME: do it only once...) *)
Definition ı : PreProp -t> halve (cmfromType Props) := Unfold.
Definition ı' : halve (cmfromType Props) -t> PreProp := Fold.
Lemma iso P : ı' (ı P) == P.
Proof. apply (FU_id P). Qed.
Lemma isoR T : ı (ı' T) == T.
Proof. apply (UF_id T). Qed.
(* Define an order on PreProp. *)
Instance PProp_preo: preoType PreProp := disc_preo PreProp.
Instance PProp_pcm : pcmType PreProp := disc_pcm PreProp.
......@@ -120,4 +111,13 @@ Module WorldProp (Res : PCM_T) : WORLD_PROP Res.
Instance Props_preo : preoType Props := _.
Instance Props_pcm : pcmType Props := _.
(* Establish the isomorphism *)
Definition ı : PreProp -t> halve (cmfromType Props) := Unfold.
Definition ı' : halve (cmfromType Props) -t> PreProp := Fold.
Lemma iso P : ı' (ı P) == P.
Proof. apply (FU_id P). Qed.
Lemma isoR T : ı (ı' T) == T.
Proof. apply (UF_id T). Qed.
End WorldProp.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment