diff options
Diffstat (limited to '')
| -rw-r--r-- | proof/Relation.v | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/proof/Relation.v b/proof/Relation.v deleted file mode 100644 index f7c087d..0000000 --- a/proof/Relation.v +++ /dev/null @@ -1,26 +0,0 @@ -(** * Relation: minimal model for finiteness checking - - A relation is reduced to the two fields that [predicted_finite] - actually inspects: its name (for database lookup) and its - finiteness flag (for the gate decision). *) - -From Stdlib Require Import List. -From Stdlib Require Import String. -Require Import Schema. -Import ListNotations. - -Record relation := mkRelation { - rel_name : string; - rel_finite : bool; -}. - -(** A database is a named collection of relations. *) -Definition database := list (string * relation). - -(** Look up a relation by name. *) -Fixpoint db_lookup (name : string) (db : database) : option relation := - match db with - | [] => None - | (n, r) :: rest => - if String.eqb name n then Some r else db_lookup name rest - end. |
