Lower case folders

4 files changed, 0 insertions, 132 deletions

diff --git a/src/Common/Helper.v b/src/Common/Helper.v
deleted file mode 100644
index d23dbe4..0000000
--- a/src/Common/Helper.v
+++ /dev/null
@@ -1,39 +0,0 @@
-(* 
- * CoqUp: Verified high-level synthesis.
- * Copyright (C) 2019-2020 Yann Herklotz <yann@yannherklotz.com>
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program.  If not, see <https://www.gnu.org/licenses/>.
- *)
-
-Module Option.
-
-Definition default {T : Type} (x : T) (u : option T) : T :=
-  match u with
-  | Some y => y
-  | _ => x
-  end.
-
-Definition map {S : Type} {T : Type} (f : S -> T) (u : option S) : option T :=
-  match u with
-  | Some y => Some (f y)
-  | _ => None
-  end.
-
-Definition liftA2 {T : Type} (f : T -> T -> T) (a : option T) (b : option T) : option T :=
-  match a with
-  | Some x => map (f x) b
-  | _ => None
-  end.
-
-End Option.
diff --git a/src/Common/Show.v b/src/Common/Show.v
deleted file mode 100644
index 8f9ec36..0000000
--- a/src/Common/Show.v
+++ /dev/null
@@ -1,61 +0,0 @@
-(* 
- * CoqUp: Verified high-level synthesis.
- * Copyright (C) 2019-2020 Yann Herklotz <yann@yannherklotz.com>
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program.  If not, see <https://www.gnu.org/licenses/>.
- *)
-
-From Coq Require Import
-    Strings.String
-    Bool.Bool
-    Arith.Arith.
-
-Local Open Scope string.
-
-Module Show.
-  Class Show A : Type :=
-    {
-      show : A -> string
-    }.
-
-  Instance showBool : Show bool :=
-    {
-      show := fun b:bool => if b then "true" else "false"
-    }.
-
-  Fixpoint string_of_nat_aux (time n : nat) (acc : string) : string :=
-    let d := match n mod 10 with
-             | 0 => "0" | 1 => "1" | 2 => "2" | 3 => "3" | 4 => "4" | 5 => "5"
-             | 6 => "6" | 7 => "7" | 8 => "8" | _ => "9"
-             end in
-    let acc' := d ++ acc in
-    match time with
-    | 0 => acc'
-    | S time' =>
-      match n / 10 with
-      | 0 => acc'
-      | n' => string_of_nat_aux time' n' acc'
-      end
-    end.
-
-  Definition string_of_nat (n : nat) : string :=
-    string_of_nat_aux n n "".
-
-  Instance showNat : Show nat :=
-    {
-      show := string_of_nat
-    }.
-
-End Show.
-Export Show.
diff --git a/src/Common/Tactics.v b/src/Common/Tactics.v
deleted file mode 100644
index 967c642..0000000
--- a/src/Common/Tactics.v
+++ /dev/null
@@ -1,29 +0,0 @@
-(* 
- * CoqUp: Verified high-level synthesis.
- * Copyright (C) 2019-2020 Yann Herklotz <yann@yannherklotz.com>
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program.  If not, see <https://www.gnu.org/licenses/>.
- *)
-
-Ltac unfold_rec c := unfold c; fold c.
-
-Ltac solve_by_inverts n :=
-  match goal with | H : ?T |- _ =>
-    match type of T with Prop =>
-      inversion H;
-      match n with S (S (?n')) => subst; try constructor; solve_by_inverts (S n') end
-    end
-  end.
-
-Ltac solve_by_invert := solve_by_inverts 1.
diff --git a/src/Common/dune b/src/Common/dune
deleted file mode 100644
index de481e2..0000000
--- a/src/Common/dune
+++ /dev/null
@@ -1,3 +0,0 @@
-(library
- (name Common)
- (public_name coqup.common))