mirror of
https://github.com/achlipala/frap.git
synced 2024-11-28 07:16:20 +00:00
More space in template
This commit is contained in:
parent
d3c7a85b49
commit
4fdc85ae5c
1 changed files with 98 additions and 0 deletions
|
@ -15,6 +15,27 @@ Proof.
|
||||||
Admitted.
|
Admitted.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(** * Transitive closure of relations *)
|
(** * Transitive closure of relations *)
|
||||||
|
|
||||||
Inductive tc {A} (R : A -> A -> Prop) : A -> A -> Prop :=
|
Inductive tc {A} (R : A -> A -> Prop) : A -> A -> Prop :=
|
||||||
|
@ -46,6 +67,26 @@ Theorem tc2_tc : forall A (R : A -> A -> Prop) x y, tc (tc R) x y -> tc R x y.
|
||||||
Proof.
|
Proof.
|
||||||
Admitted.
|
Admitted.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(** * Permutation *)
|
(** * Permutation *)
|
||||||
|
|
||||||
|
@ -78,6 +119,29 @@ Proof.
|
||||||
Admitted.
|
Admitted.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(** * Simple propositional logic *)
|
(** * Simple propositional logic *)
|
||||||
|
|
||||||
Inductive prop :=
|
Inductive prop :=
|
||||||
|
@ -134,6 +198,40 @@ Admitted.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(* Proofs for an extension I hope we'll get to:
|
(* Proofs for an extension I hope we'll get to:
|
||||||
|
|
||||||
Fixpoint interp (vars : var -> Prop) (p : prop) : Prop :=
|
Fixpoint interp (vars : var -> Prop) (p : prop) : Prop :=
|
||||||
|
|
Loading…
Reference in a new issue