96fcc94acb
This PR adds support for inductive and coinductive predicates defined using lattice theoretic structures on `Prop`. These are syntactically defined using `greatest_fixpoint` or `least_fixpoint` termination clauses for recursive `Prop`-valued functions. The functionality relies on `partial_fixpoint` machinery and requires function definitions to be monotone. For non-mutually recursive predicates, an appropriate (co)induction proof principle (given by Park induction) is generated. Summary of changes: - `Interal.Order.Basic` now contains `CompleteLattice` class, as well as version of Knaster-Tarski fixpoint theorem (with an associated Park induction principle) for the internal use for defining (co)inductive predicates. `Prop` is shown to have two complete lattice structures (one given by implication order for defining inductive predicates, and one given by reverse implication for defining coinductive predicates). Additionally, proofs that lattices are closed under products and function spaces are included. - Partial fixpoint's `EqnInfo` now additionally carries an information whether something is defined as a lattice-theoretic fixpoint or via CCPOs. - When constructing a (co)inductive predicate,`PartialFixpoint/Main` builds an appropriate lattice structure on the type of the predicate using product lattice, function space lattice and an appropriate lattice instance on `Prop`. - `PartialFixpoint/Eqns` is modified to be able to perform rewrite under lattice-theoretic fixpoint construction - `PartialFixpoint/Induction`contains a case split for handling of the (co)inductive predicates. In the case of lattice-theoretic fixpoints, it appropriately desugars the Park induction principle.
36 lines
959 B
Text
36 lines
959 B
Text
/-!
|
|
This file contains tests for typical mistakes one might do when using `least_fixpoint`/`greatest_fixpoint`/`partial_fixpoint` machinery, that is:
|
|
- Try to use `greatest_fixpoint`/`least_fixpoint` to define functions instead of predicates
|
|
- Apply `greatest_fixpoint`/`least_fixpoint` to non-recursive functions
|
|
- Mix `partial_fixpoint` with `greatest_fixpoint`/`least_fixpoint` in the same clique
|
|
-/
|
|
|
|
/--
|
|
error: `greatest_fixpoint` can be only used to define predicates
|
|
-/
|
|
#guard_msgs in
|
|
def f (x : Nat) : Nat :=
|
|
f (x + 1)
|
|
greatest_fixpoint
|
|
|
|
/--
|
|
error: `least_fixpoint` can be only used to define predicates
|
|
-/
|
|
#guard_msgs in
|
|
def g (x : Nat) : Nat :=
|
|
g (x + 1)
|
|
least_fixpoint
|
|
|
|
/--
|
|
warning: unused `greatest_fixpoint`, function is not recursive
|
|
-/
|
|
#guard_msgs in
|
|
def h (x : Nat) : Prop := x > 42
|
|
greatest_fixpoint
|
|
|
|
/--
|
|
warning: unused `least_fixpoint`, function is not recursive
|
|
-/
|
|
#guard_msgs in
|
|
def h' (x : Nat) : Prop := x > 42
|
|
least_fixpoint
|