X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=src%2FHaskGeneral.v;fp=src%2FHaskGeneral.v;h=0000000000000000000000000000000000000000;hb=bcb16a7fa1ff772f12807c4587609fd756b7762e;hp=0c9ba33e831dc1ffbe96c57dac80f0c7f3c48d75;hpb=8282f5a7639dbe862bba29d3170d58b81bbb1446;p=coq-hetmet.git

diff --git a/src/HaskGeneral.v b/src/HaskGeneral.v
deleted file mode 100644
index 0c9ba33..0000000
--- a/src/HaskGeneral.v
+++ /dev/null
@@ -1,73 +0,0 @@
-(*********************************************************************************************************************************)
-(* HaskGeneral:  Definitions shared by all four representations (Core, Weak, Strong, Proof)                                      *)
-(*********************************************************************************************************************************)
-
-Generalizable All Variables.
-Require Import Preamble.
-Require Import General.
-Require Import Coq.Strings.String.
-Open Scope nat_scope.
-
-(* all Figure references are to the System FC1 paper *)
-
-(* Figure 1: production T; index is the number of type constructors *)
-Variable TyCon      : nat -> Type.               Extract Inlined Constant TyCon => "TyCon.TyCon".
-
-(* Figure 1: production "K" *)
-Variable DataCon    :  ∀n, TyCon n               
-                                 -> nat          (* number of existential tyvars associated with this datacon *)
-                                 -> nat          (* number of coercion variables associated with this datacon *)
-                                 -> nat          (* number of value variables (fields) associated with this datacon *)
-                                 -> Type.        Extract Inlined Constant DataCon => "DataCon.DataCon".
-
-Variable CoFunConst            : nat -> Type.    (* production "C";  extracts to TyCon.TyCon  *)
-Variable TyFunConst            : nat -> Type.    (* production "Sn"; extracts to TyCon.TyCon *)
-
-(* magic TyCons *)
-Variable ArrowTyCon            : TyCon 2.        (* the TyCon for (->), the regular old function-space type constructor *)
-Variable CoercionTyCon         : TyCon 2.        (* the TyCon for (+>), the coercion type constructor *)
-Variable hetMetCodeTypeTyCon   : TyCon 2.        Extract Inlined Constant hetMetCodeTypeTyCon => "TysWiredIn.hetMetCodeTypeTyCon".
-Variable Class_                : nat -> Type.    Extract Inlined Constant Class_     => "Class.Class".
-Variable classTyCon : ∀ n, Class_ n -> TyCon n.  Extract Inlined Constant classTyCon => "Class.classTyCon".
-Variable Note                  : Type.           Extract Inlined Constant Note       => "CoreSyn.Note".
-Implicit Arguments DataCon [ [n] ].
-
-(* Figure 7: production κ, ι *)
-Inductive Kind : Type := 
-  | KindType         : Kind                      (* ★  - the kind of boxed types*)
-  | KindTypeFunction : Kind  -> Kind  -> Kind    (* ⇛ *)
-  | KindUnliftedType : Kind                      (* not in the paper - this is the kind of unboxed non-tuple types *)
-  | KindUnboxedTuple : Kind                      (* not in the paper - this is the kind of unboxed tuples *)
-  | KindArgType      : Kind                      (* not in the paper - this is the lub of KindType and KindUnliftedType *)
-  | KindOpenType     : Kind                      (* not in the paper - kind of all types (lifted, boxed, whatever) *).
-
-Notation "'★'"   := KindType.
-Notation "a ⇛ b" := (KindTypeFunction a b).
-
-Instance KindEqDecidable : EqDecidable Kind.
-  apply Build_EqDecidable.
-  induction v1.
-    destruct v2; try (right; intro q; inversion q; fail) ; left ; auto.
-    destruct v2; try (right; intro q; inversion q; fail) ; auto.
-      destruct (IHv1_1 v2_1); destruct (IHv1_2 v2_2); subst; auto;
-      right; intro; subst; inversion H; subst; apply n; auto.
-    destruct v2; try (right; intro q; inversion q; fail) ; left ; auto.
-    destruct v2; try (right; intro q; inversion q; fail) ; left ; auto.
-    destruct v2; try (right; intro q; inversion q; fail) ; left ; auto.
-    destruct v2; try (right; intro q; inversion q; fail) ; left ; auto.
-  Defined.
-
-Variable tyConToString       : forall n, TyCon n -> string.  Extract Inlined Constant tyConToString         => "outputableToString".
-Variable tyFunToString       : ∀ n, TyFunConst n -> string.  Extract Inlined Constant tyFunToString         => "outputableToString".
-Variable coFunToString       : ∀ n, CoFunConst n -> string.  Extract Inlined Constant coFunToString         => "outputableToString".
-Variable natTostring         : nat->string.                  Extract Inlined Constant natTostring           => "natTostring".
-
-
-Axiom    tycons_distinct       : ~(ArrowTyCon=hetMetCodeTypeTyCon).
-(* GHC provides decision procedures for equality on its primitive types; we tell Coq to blindly trust them *)
-Variable tyCon_eq   : forall {k}(n1 n2:TyCon k),  sumbool (n1=n2) (not (n1=n2)).
-    Extract Inlined Constant tyCon_eq   => "(==)".
-Variable dataCon_eq : forall {n}{tc:TyCon n}{q}{r}{s}(n1 n2:DataCon tc q r s),  sumbool (n1=n2) (not (n1=n2)).
-    Extract Inlined Constant dataCon_eq => "(==)".
-Instance TyConEqDecidable {n} : EqDecidable (TyCon n) := { eqd_dec            := tyCon_eq }.
-Instance DataConEqDecidable {n}{tc:TyCon n}{a}{b}{c} : EqDecidable (@DataCon _ tc a b c) := { eqd_dec            := dataCon_eq }.