Load DOLCE_root.
Require Export Coq.Classes.RelationClasses.
Arguments transitivity {A} {R} {_} [x] [y] [z] _ _.
Module Type Protothetic (dolce:DOLCE_root).
(************************** Meta-rules of Protothetic in Coq ***************************)
Parameter eqP : Prop -> Prop -> Prop.
Notation "a ≡≡ b" := (eqP a b)  (at level 80).

(* Specifications: *)
Axiom A1 :forall p q r, (((p ≡≡ r) ≡≡ (q ≡≡ p)) ≡≡ (r ≡≡ q)).
Axiom A2 :forall p q r, ((p ≡≡ (q ≡≡ r)) ≡≡ ((p ≡≡ q) ≡≡ r)).
Parameter detachL     : forall (p q:Prop), (p ≡≡ q) -> p -> q.