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).

Axiom A1 :forall p q r, (((p ≡≡ r) ≡≡ (q ≡≡ p)) ≡≡ (r ≡≡ q)).